File Coverage

blib/lib/Blosxom/Component.pm

Criterion	Covered	Total	%
statement	17	52	32.6
branch	1	14	7.1
condition	0	7	0.0
subroutine	5	8	62.5
pod	3	4	75.0
total	26	85	30.5

package Blosxom::Component;
use strict;
use warnings;
use Carp qw/croak/;

my ( %attribute_of, %requires, %component_of );

sub load_components {
    my ( $class, @components ) = @_;
    push @{ $component_of{$class} ||= [] }, @_;
}

sub requires {
    my ( $class, @methods ) = @_;
    push @{ $requires{$class} ||= [] }, @methods;
}

sub mk_accessors {
    my $class = shift;
    while ( @_ ) {
        my $field = shift;
        my $default = ref $_[0] eq 'CODE' ? shift : undef;
        $attribute_of{ $class }{ $field } = $default;
    }
}

sub init {
    my $class  = shift;
    my $caller = shift;
    my $stash  = do { no strict 'refs'; \%{"$class\::"} };

    if ( my $components = $component_of{$class} ) {
        my @args = @{ $components };
        while ( @args ) {
            my $component = shift;
            my $config = ref $args[0] eq 'HASH' ? shift @args : undef;
            $caller->add_component( $component => $config );
        }
    }

    if ( my $requires = $requires{$class} ) {
        if ( my @methods = grep { !$caller->can($_) } @{$requires} ) {
            my $methods = join ', ', @methods;
            croak "Can't apply '$class' to '$caller' - missing $methods";
        }
    }

    if ( my $attribute = $attribute_of{$class} ) {
        while ( my ($field, $default) = each %{$attribute} ) {
            $caller->add_attribute( $field, $default );
        }
    }

    # NOTE: use keys() instead
    while ( my ($name, $glob) = each %{$stash} ) {
        if ( defined *{$glob}{CODE} and $name ne 'init' ) {
            $caller->add_method( $name => *{$glob}{CODE} );
        }
    }

    return;
}

1;

__END__