File Coverage

blib/lib/Class/Dot/Policy/Mutator.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	29	30	96.6

# $Id$
# $Source$
# $Author$
# $HeadURL$
# $Revision$
# $Date$
package Class::Dot::Policy::Mutator;

use strict;
use warnings;
use version;
use 5.00600;

our $VERSION    = qv('2.0.0_15');
our $AUTHORITY  = 'cpan:ASKSH';

use Class::Dot::Policy;

my @PUSH_POLICY = qw(
    :fast
    -getter_prefix=
    -setter_prefix=
);

sub import {
    my ($this_class, @args) = @_;
    my $caller_class        = caller 0;

    strict->import();
    warnings->import();

    return if $caller_class eq 'main';

    my @policy = Class::Dot::Policy->_create_policy(\@PUSH_POLICY, @args);

    return Class::Dot::Policy->_dotify_class($caller_class, @policy);
}

1;

__END__