Acme-ExceptionEater

 view release on metacpan or  search on metacpan

lib/Acme/ExceptionEater.pm  view on Meta::CPAN

use warnings;

use vars qw( $VERSION );
use version; $VERSION = qv('0.0.1');

# Module implementation here

sub new { bless {}, shift }
sub DESTROY { eval {} }

1; # Magic true value required at end of module
__END__

=head1 NAME

Acme::ExceptionEater - Prevents eval from returning an exception.

=head1 VERSION

This document describes Acme::ExceptionEater version 0.0.1

t/perlcritic.t  view on Meta::CPAN

#!perl
use Test::More;

plan 'skip_all' => 'Author does not have Test::Perl::Critic';

if (!eval{require Test::Perl::Critic;1}) {
    Test::More::plan(
        skip_all => "Test::Perl::Critic required for testing PBP compliance"
    );
}

Test::Perl::Critic::all_critic_ok();

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

#!perl -T

use Test::More;
eval "use Test::Pod::Coverage 1.04";
plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
all_pod_coverage_ok();

t/pod.t  view on Meta::CPAN

#!perl -T

use Test::More;
eval "use Test::Pod 1.14";
plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
all_pod_files_ok();