File Coverage

blib/lib/PerlBean/Style.pm

Criterion	Covered	Total	%
statement	125	133	93.9
branch	49	84	58.3
condition	32	60	53.3
subroutine	24	24	100.0
pod	16	16	100.0
total	246	317	77.6

package PerlBean::Style;

use 5.005;
use base qw( Exporter );
use strict;
use warnings;
use AutoLoader qw(AUTOLOAD);
use Error qw(:try);
require Exporter;

# Shortcut for singleton's get_str_after_comma()
our $AC;

# Shortcut for singleton's get_str_around_complex_subscripts()
our $ACS;

# Shortcut for singleton's get_method_factory_name_to_method_base_filter()
our $AN2MBF;

# Shortcut for singleton's get_str_around_operators()
our $AO;

# Shortcut for singleton's get_str_between_conditional_and_parenthesis()
our $BCP;

# Shortcut for singleton's get_str_between_function_and_parenthesis()
our $BFP;

# Shortcut for singleton's get_indent()
our $IND;

# Shortcut for singleton's get_method_operation_filter()
our $MOF;

# Singleton variable
our $SINGLETON = undef;

# Used by _value_is_allowed
our %ALLOW_ISA = (
);

# Used by _value_is_allowed
our %ALLOW_REF = (
    'method_factory_name_to_method_base_filter' => {
        'CODE' => 1,
    },
    'method_operation_filter' => {
        'CODE' => 1,
    },
);

# Used by _value_is_allowed
our %ALLOW_RX = (
    'indent' => [ '.*' ],
    'str_after_comma' => [ '.*' ],
    'str_around_complex_subscripts' => [ '.*' ],
    'str_around_operators' => [ '.*' ],
    'str_between_conditional_and_parenthesis' => [ '.*' ],
    'str_between_function_and_parenthesis' => [ '.*' ],
    'str_post_block_close_curl' => [ '.*' ],
    'str_pre_block_open_curl' => [ '.*' ],
);

# Used by _value_is_allowed
our %ALLOW_VALUE = (
);

# Used by _initialize
our %DEFAULT_VALUE = (
    'indent' => '    ',
    'method_factory_name_to_method_base_filter' => \&default_method_factory_name_to_method_base_filter,
    'method_operation_filter' => \&default_method_operation_filter,
    'str_after_comma' => ' ',
    'str_around_complex_subscripts' => ' ',
    'str_around_operators' => ' ',
    'str_between_conditional_and_parenthesis' => ' ',
    'str_between_function_and_parenthesis' => '',
    'str_post_block_close_curl' => "\n__IND_BLOCK__",
    'str_pre_block_open_curl' => ' ',
);

# Exporter variable
our %EXPORT_TAGS = (
    'codegen' => [ qw(
        $AC
        $ACS
        $AN2MBF
        $AO
        $BCP
        $BFP
        $IND
        $MOF
        @PBCC
        @PBOC
    ) ],
);

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

# Exporter variable
our @EXPORT = qw(
);

# Exporter variable
our @EXPORT_OK = qw(
    $AC
    $ACS
    $AN2MBF
    $AO
    $BCP
    $BFP
    $IND
    $MOF
    @PBCC
    @PBOC
);

# Shortcut for singleton's get_str_post_block_close_curl()
our @PBCC;

# Shortcut for singleton's get_str_pre_block_open_curl()
our @PBOC;

# Instanciate the singleton so the exported symbols are initialized
&instance();

1;

__END__