File Coverage

blib/lib/Exporter/Declare/Magic/Sub.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	29	33	87.8

package Exporter::Declare::Magic::Sub;
use strict;
use warnings;

use base 'Exporter::Declare::Export::Sub';

sub inject {
    my $self = shift;
    my ($class, $name) = @_;

    $self->SUPER::inject( $class, $name );

    return unless $self->parser;

    my $parser_sub = $self->exported_by->export_meta->parsers_get( $self->parser );

    if ( $parser_sub ) {
        require Devel::Declare;
        Devel::Declare->setup_for(
            $class,
            { $name => { const => $parser_sub } }
        );
    }
    else {
        require Devel::Declare::Interface;
        require Exporter::Declare::Magic::Parser;
        Devel::Declare::Interface::enhance(
            $class,
            $name,
            $self->parser,
        );
    }
}

sub parser {
    my $self = shift;
    return $self->_data->{parser};
}

1;

=head1 NAME

Exporter::Declare::Magic::Sub - Export class for subs which are exported.

=head1 DESCRIPTION

Export class for subs which are exported. Overrides inject() in order to hook
into L on parsed exports.

=head1 OVERRIDEN METHODS

=over 4

=item $export->inject( $class, $name );

Inject the sub, and apply the L magic.

=back

=head1 NEW METHODS

=over 4

=item $parser_name = export->parser()

Get the name of the parse this sub should use with L empty when
no parse should be used.

=back

=head1 AUTHORS

Chad Granum L

=head1 COPYRIGHT

Copyright (C) 2010 Chad Granum

Exporter-Declare is free software; Standard perl licence.

Exporter-Declare is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the license for more details.