File Coverage

blib/lib/Raisin/Plugin.pm

Criterion	Covered	Total	%
statement	30	35	85.7
branch	4	8	50.0
condition			n/a
subroutine	8	9	88.8
pod	2	4	50.0
total	44	56	78.5

#!perl
#PODNAME: Raisin::Plugin
#ABSTRACT: Base class for Raisin plugins

use strict;
use warnings;

package Raisin::Plugin;
$Raisin::Plugin::VERSION = '0.94';
use Carp;

sub new {
    my ($class, $app) = @_;
    my $self = bless {}, $class;
    $self->{app} = $app;
    $self;
}

sub app { shift->{app} }

sub build {
    my ($self, %args) = @_;
}

sub register {
    my ($self, %items) = @_;

    while (my ($name, $item) = each %items) {
        no strict 'refs';
        #no warnings 'redefine';

        my $class = ref $self->app;
        my $caller = $self->app->{caller};

        my $glob = "${class}::${name}";
        my $app_glob = $caller ? "${caller}::${name}" : undef;

        if ($self->app->can($name)) {
            croak "Redefining of $glob not allowed";
        }

        if (ref $item eq 'CODE') {
            *{$glob} = $item;
            *{$app_glob} = $item if $app_glob;
        }
        else {
            $self->app->{$name} = $item;
            *{$glob} = sub { shift->{$name} };
        }
    }
}

1;

__END__