File Coverage

blib/lib/Sub/Installer.pm

Criterion	Covered	Total	%
statement	54	54	100.0
branch	7	10	70.0
condition	2	6	33.3
subroutine	14	14	100.0
pod	2	2	100.0
total	79	86	91.8

package Sub::Installer;

use version; $VERSION = qv('0.0.3');

use warnings;
use strict;
use Carp;


sub reinstall_sub {
    my ($package_name, $sub_def_ref) = @_;
    croak "Usage: PackageName->reinstall_sub( \%sub_def )"
        unless @_==2 && ref $sub_def_ref eq 'HASH';
    no warnings 'redefine';
    my $last_install;
    for my $sub_name (keys %{$sub_def_ref}) {
        no strict 'refs';
        *{$package_name.'::'.$sub_name}
            = $last_install
            = Sub::Installer::Util::_normalize_sub($package_name, $sub_name, $sub_def_ref->{$sub_name});
    }
    return $last_install;
}

sub install_sub {
    my ($package_name, $sub_def_ref) = @_;
    croak "Usage: PackageName->install_sub( \%sub_def )"

        unless @_==2 && ref $sub_def_ref eq 'HASH';
    my $last_install;
    use warnings 'redefine';
    for my $sub_name (keys %{$sub_def_ref}) {
        no strict 'refs';
        *{$package_name.'::'.$sub_name}
            = $last_install
            = Sub::Installer::Util::_normalize_sub($package_name, $sub_name, $sub_def_ref->{$sub_name});
    }
    return $last_install;
}

package Sub::Installer::Util;

use Carp;

sub _normalize_sub {
    my ($package_name, $sub_name, $sub_code) = @_;
    if (!ref $sub_code) {
        if ($sub_code !~ /\A \s* sub \s* [{] .* [}] \s* \Z/xms) {
            $sub_code = "sub { $sub_code }";
        }
        $sub_code = eval "package $package_name; $sub_code"
            or croak "Can't install invalid code: $@";
    }
    return $sub_code;
}

package UNIVERSAL;
use base 'Sub::Installer';

1; # Magic true value required at end of module
__END__