view release on metacpan or  search on metacpan

t/10_Stat.t  view on Meta::CPAN

ok( $d->{'10_Stat.t'}{mtime} 	>  0 );
ok( $d->{'10_Stat.t'}{nlink} 	>  0 );
ok( $d->{'10_Stat.t'}{rdev} 	>= 0 );
ok( $d->{'10_Stat.t'}{size} 	>  0 );
ok( $d->{'10_Stat.t'}{uid} 		>= 0 );

############################### TEST 29-30 #####################################
$F->File("> /tmp/__KEY__", "a,b,AAA\n");
$F->File("/tmp/__KEY__",   "a,c,BBB\n");

sub LC($) {
	my ($i) = @_;
	my @O;
	foreach my $l ( @{$i} )
	{
		push @O, lc $l;
	}
	return \@O;
}

$k = $F->KeyMap("> /tmp/__KEY__");