File Coverage

example/lib/Attribute/Exporter.pm

Criterion	Covered	Total	%
statement	41	43	95.3
branch	3	4	75.0
condition	4	4	100.0
subroutine	10	10	100.0
pod	1	2	50.0
total	59	63	93.6

package Attribute::Exporter;

use warnings;
use strict;

use Sub::Attribute;
use parent qw(Exporter);

sub _attr_exporter_register{
	my($class, $type, $sym, $tags) = @_;
	unless($sym){
		require Carp;
		Carp::croak('Cannot export anonymous subroutine');
	}

	my $name = *{$sym}{NAME};

	my $export_tags = do{
		no strict 'refs';
		push @{$class . '::' . $type}, $name;

		\%{$class . '::EXPORT_TAGS'};
	};

	push @{$export_tags->{all} ||= []}, $name;

	if($tags){
		foreach my $tag(split q{ }, $tags){
			push @{$export_tags->{$tag}  ||= []}, $name;
		}
	}
	return;
}

sub Export :ATTR_SUB{
	my($class, $sym, undef, undef, $tags) = @_;
	$class->_attr_exporter_register(EXPORT => $sym, $tags);
}

sub Exportable :ATTR_SUB{
	my($class, $sym, undef, undef, $tags) = @_;
	$class->_attr_exporter_register(EXPORT_OK => $sym, $tags);
}

1;
__END__