view release on metacpan or  search on metacpan

README  view on Meta::CPAN

Alternatively, to install with Module::Build, you can use the following commands:

	perl Build.PL
	./Build
	./Build test
	./Build install

DEPENDENCIES

See DEPENDENCIES section in POD, 'requires' key in Build.PL, 
or 'PREREQ_PM' key in Makefile.PL

COPYRIGHT AND LICENCE

Copyright (C) 2010, Daniel Muey

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

lib/Acme/ChuckNorris.pod  view on Meta::CPAN

This document describes Acme::ChuckNorris version 0.3

=head1 SYNOPSIS

    use Acme::ChuckNorris;

=head1 DESCRIPTION

This module is intended to be a place to store all things combining Chuck Norris and Perl.

Current "things" are detailed in the next section. If you have any ideas let me know and you'll get Chuck Norris cred.

=head1 INTERFACE 

All functions are exported unless you call it in non-import() context (i.e. require Acme::ChuckNorris; or use Acme::ChuckNorris ();).

=head2 round_house_kick_to_the_perl()

Turns your code into executable Chuck Norris perl.

   my $chuck_norris_shaped_code = round_house_kick_to_the_perl(\q{print "Goodbye\n";die "You are now dead.\n";}); 

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

plan skip_all => 'Test::Pod v1.14 required for testing POD' if $@;
eval 'use Pod::Simple::SimpleTree 3.28';
plan skip_all => 'Pod::Simple::SimpleTree v3.28 required for testing POD version' if $@;
eval 'use Module::Want 0.5';
plan skip_all => 'Module::Want v0.5 required for testing POD version' if $@;

my $ns_regex = Module::Want::get_ns_regexp();

for my $pod ( all_pod_files() ) {

    my $version_section;
    my $next = 0;
    for my $section ( @{ Pod::Simple::SimpleTree->new->parse_file($pod)->root } ) {
        next unless ref($section) eq 'ARRAY';

        if ($next) {
            $version_section = $section->[2];
            last;
        }

        if ( $section->[0] =~ m/head[0-9]/ && $section->[2] eq 'VERSION' ) {
            $next = 1;
        }
    }

    if ( defined $version_section ) {
        if ( $version_section =~ m/This document describes ($ns_regex) version (\S+)/ ) {
            my ( $ns, $ver ) = ( $1, $2 );
            if ( Module::Want::have_mod($ns) ) {
                my $cur = $ns->VERSION;
                is( $cur, $ver, "$pod VERSION line has the same version as $ns" );
            }
            else {
                ok( 0, "Could not load $ns to find version:\n\t$@" );
            }
        }
        else {
            like( $version_section, qr/This document describes $ns_regex version \S+/, "VERSION section has the correct text" );
        }
    }
    else {
        ok( 1, "No VERSION section" );
    }
}

done_testing;