File Coverage

blib/lib/PerlBean.pm

Criterion	Covered	Total	%
statement	796	855	93.1
branch	255	372	68.5
condition	55	87	63.2
subroutine	106	106	100.0
pod	51	60	85.0
total	1263	1480	85.3

package PerlBean;

use 5.005;
use strict;
use warnings;
use AutoLoader qw(AUTOLOAD);
use Error qw(:try);
use PerlBean::Dependency::Require;
use PerlBean::Dependency::Use;
use PerlBean::Method;
use PerlBean::Method::Constructor;
use PerlBean::Style qw(:codegen);
use PerlBean::Symbol;

# Variable to not confuse AutoLoader
our $END = '__END__';

# Legacy count variable
our $LEGACY_COUNT = 0;

# Used by _value_is_allowed
our %ALLOW_ISA = (
    'collection' => [ 'PerlBean::Collection' ],
    'dependency' => [ 'PerlBean::Dependency' ],
    'export_tag_description' => [ 'PerlBean::Described::ExportTag' ],
    'method' => [ 'PerlBean::Method' ],
    'method_factory' => [ 'PerlBean::Method::Factory' ],
    'symbol' => [ 'PerlBean::Symbol' ],
);

# Used by _value_is_allowed
our %ALLOW_REF = (
);

# Used by _value_is_allowed
our %ALLOW_RX = (
    'abstract' => [ '^.*$' ],
    'base' => [ '^\S+$' ],
    'license' => [ '.*' ],
    'synopsis' => [ '.*' ],
    'use_perl_version' => [ '^v?\d+(\.[\d_]+)*' ],
);

# Used by _value_is_allowed
our %ALLOW_VALUE = (
);

# Used by _initialize
our %DEFAULT_VALUE = (
    '_finalized_' => 0,
    '_has_exports_' => 0,
    'autoloaded' => 1,
    'exception_class' => 'Error::Simple',
    'short_description' => 'NO DESCRIPTION AVAILABLE',
    'singleton' => 0,
    'use_perl_version' => $],
);

# Package version
our ($VERSION) = '$Revision: 1.0 $' =~ /\$Revision:\s+([^\s]+)/;

# Month names array
our @MON = qw(
    January
    February
    March
    April
    May
    June
    July
    August
    September
    October
    November
    December
);

1;

__END__