view release on metacpan or  search on metacpan

lib/Dzpl.pm  view on Meta::CPAN

}

use Dist::Dzpl;

our %DZPL;

sub import {
    my $package = caller;
    my @arguments = splice @_, 1;

    strict->import;
    warnings->import;

    if ( $DZPL{$package} ) {
        warn "Dzpl: Already initialized Dist::Dzpl for package ($package)!\n";
        return;
    }

    $DZPL{$package} = Dist::Dzpl->from_arguments( @arguments );
    
    @_ = ( $_[0] );