Incorrect search filter: invalid characters - *.p[ml]
ACME-THEDANIEL-Utils

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
to provide version information here so that people can decide whether
fixes for the module are worth downloading.
 
 
INSTALLATION
 
To install this module, run the following commands:
 
        perl Build.PL
        ./Build
        ./Build test
        ./Build install
 
SUPPORT AND DOCUMENTATION
 
After installing, you can find documentation for this module with the
perldoc command.
 
    perldoc ACME::THEDANIEL::Utils
 
You can also look for information at:

t/00-load.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
#!perl -T
use 5.006;
use strict;
 
plan tests => 1;
 
BEGIN {
    use_ok( 'ACME::THEDANIEL::Utils' ) || print "Bail out!\n";
}
 
diag( "Testing ACME::THEDANIEL::Utils $ACME::THEDANIEL::Utils::VERSION, Perl $], $^X" );

t/manifest.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!perl -T
use 5.006;
use strict;
 
unless ( $ENV{RELEASE_TESTING} ) {
    plan( skip_all => "Author tests not required for installation" );
}
 
my $min_tcm = 0.9;
eval "use Test::CheckManifest $min_tcm";
plan skip_all => "Test::CheckManifest $min_tcm required" if $@;
 
ok_manifest();

t/pod-coverage.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!perl -T
use 5.006;
use strict;
 
unless ( $ENV{RELEASE_TESTING} ) {
    plan( skip_all => "Author tests not required for installation" );
}
 
# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;
 
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;
 
all_pod_coverage_ok();

t/pod.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!perl -T
use 5.006;
use strict;
 
unless ( $ENV{RELEASE_TESTING} ) {
    plan( skip_all => "Author tests not required for installation" );
}
 
# Ensure a recent version of Test::Pod
my $min_tp = 1.22;
eval "use Test::Pod $min_tp";
plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
 
all_pod_files_ok();

t/sum.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
 
use strict;
 
use Test::More tests => 6;
 
BEGIN {
    use_ok( 'ACME::THEDANIEL::Utils' ) || print "Bail out!\n";
}
 
is( ACME::THEDANIEL::Utils::sum( 1, 2, 3, 4 ), 10, "multiple numbers sum" );
is( ACME::THEDANIEL::Utils::sum( 1 ), 1, "single number sum" );

xt/boilerplate.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!perl -T
use 5.006;
use strict;
 
plan tests => 3;
 
sub not_in_file_ok {
    my ($filename, %regex) = @_;
    open( my $fh, '<', $filename )
        or die "couldn't open $filename for reading: $!";
 
    my %violated;
 
    while (my $line = <$fh>) {
        while (my ($desc, $regex) = each %regex) {



( run in 0.550 second using v1.01-cache-2.11-cpan-5f2e87ce722 )