File Coverage

blib/lib/Blosxom/Plugin/DataSection.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	3	66.6
total	31	32	96.8

package Blosxom::Plugin::DataSection;
use strict;
use warnings;
use Data::Section::Simple;

my @exports = qw( get_data_section merge_data_section_into );

sub init {
    my ( $class, $caller ) = @_;
    $caller->add_attribute( data_section => \&_build_data_section );
    $caller->add_method( $_ => \&{$_} ) for @exports;
    return;
}

sub _build_data_section {
    Data::Section::Simple->new($_[0])->get_data_section;
}

sub get_data_section { $_[0]->data_section->{$_[1]} }

sub merge_data_section_into {
    my ( $pkg, $merge_into ) = @_;
    my $data_section = $pkg->data_section;
    for my $name ( keys %{$data_section} ) {
        my ( $chunk, $flavour ) = $name =~ /(.*)\.([^.]*)/;
        $merge_into->{ $flavour }{ $chunk } = $data_section->{ $name };
    }
}

1;

__END__