File Coverage

blib/lib/Object/Exercise.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	20	20	100.0

#######################################################################
# housekeeping
#######################################################################

package Object::Exercise;
use v5.20;

use Symbol qw( qualify qualify_to_ref );

use Object::Exercise::Execute;

########################################################################
# package variables
########################################################################

our $VERSION    = '3.00';
$VERSION        = eval "$VERSION";

########################################################################
# subroutines
########################################################################

sub import
{
    state $init     = \&Object::Exercise::Execute::import_flags;
    state $handler  = \&Object::Exercise::Execute::exercise;

    my $caller  = caller;

    # ignore the current package

    shift;

    my $export  = &$init;

    # install the handler as scalar ref not a sub ref so that
    # they get $exercise as a subref.

    *{ qualify_to_ref $export => $caller } = \$handler;

    return
}

# keep require happy
1
__END__