File Coverage

blib/lib/Class/Dot2.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	31	31	100.0

# $Id$
# $Source$
# $Author$
# $HeadURL$
# $Revision$
# $Date$
package Class::Dot2;

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

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

use Class::Dot::Policy;

our @PUSH_POLICY = qw(
    -new -optimized

    has property extends composite

    after_property_get after_property_set

    finalize_class
);

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

    strict->import();
    warnings->import();
    version->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__