Woody2143

package Index;

use Moose;
use namespace::autoclean;
use Index::Types;
use POSIX qw(strftime);

has 'date'    => (
     is       => 'rw',
     isa      => 'Index::Types::Date',

Woody2143

package Index;

use Moose;
use namespace::autoclean;
use Index::Types;
use IPC::System::Simple qw(capture);
use POSIX qw(strftime);


has 'date'    => (

Woody2143

package Index;

use Mouse;
use namespace::autoclean;
use Index::Types;


has 'date'    => (
     is       => 'rw',
     isa      => 'Index::Types::Date',

Woody2143

package Index;

use Mouse;
use Mouse::Util::TypeConstraints;

subtype 'phonenumber',
        as 'Str',
        where { length($_) > 6 },
        message { "This number ($_) is not a valid phone number!" };

Woody2143

#!/export/home/bwood/perl/bin/perl

use Modern::Perl;

use Test::More  tests => 1;

use_ok( 'Remote' ) or exit;

Woody2143

package CDRIndex;

use strict;
use warnings;

sub new {
    my ($class, %args) = @_;
    bless \%args, $class;
}

Woody2143

package MergeFunctions;

# Usage: `use MergeFunctions qw( getURL, mergeFiles );`
use strict;
use warnings;
use base qw(Exporter);
our $VERSION   = 1.00;
our @EXPORT_OK = qw( &getURL &mergeFiles );

sub getURL {

Woody2143

# <--SNIP-->
my $total_files = @files;
my %file_data;
my @files_to_search;
my $start_file;
my $end_file;

for ( my $i = 0; $i < $total_files; $i++) {

    # Convert the filename to a date and get epoch

Woody2143

package SnoopDatabase::File;

sub get_url {

    use Expect;
        
    $Expect::Exp_Internal = 0;
    $Expect::Log_Stdout = 0;
    $Expect::Multiline_Matching = 1;

Woody2143

package DateRange;

# Usage: `use DateRange qw( getDateArray );`
use strict;
use warnings;
use base qw(Exporter);
our $VERSION   = 1.00;
our @EXPORT_OK = qw( &getDateArray );
 
sub getDateArray {