ACME-THEDANIEL-Utils
view release on metacpan or search on metacpan
111213141516171819202122232425262728293031to 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
12345678910111213#!perl -T
use
5.006;
use
strict;
use
warnings;
use
Test::More;
plan
tests
=> 1;
BEGIN {
use_ok(
'ACME::THEDANIEL::Utils'
) ||
"Bail out!\n"
;
}
diag(
"Testing ACME::THEDANIEL::Utils $ACME::THEDANIEL::Utils::VERSION, Perl $], $^X"
);
t/manifest.t view on Meta::CPAN
123456789101112131415#!perl -T
use
5.006;
use
strict;
use
warnings;
use
Test::More;
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
123456789101112131415161718192021222324#!perl -T
use
5.006;
use
strict;
use
warnings;
use
Test::More;
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();
12345678910111213141516#!perl -T
use
5.006;
use
strict;
use
warnings;
use
Test::More;
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();
123456789101112131415#!/usr/bin/perl
use
strict;
use
warnings;
use
Test::Exception;
BEGIN {
use_ok(
'ACME::THEDANIEL::Utils'
) ||
"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
1234567891011121314151617#!perl -T
use
5.006;
use
strict;
use
warnings;
use
Test::More;
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 )