File Coverage

blib/lib/Attribute/SubName.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	1	0.0
total	39	41	95.1

use 5.006;
use strict;
use warnings;

package Attribute::SubName;
BEGIN {
  $Attribute::SubName::VERSION = '1.101420';
}
# ABSTRACT: Naming anonymous subroutines via attributes

use Sub::Name;
use parent 'Attribute::Handlers';

sub UNIVERSAL::Name : ATTR(CODE) {
    my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
    $data = [$data] unless ref $data eq 'ARRAY';
    for my $item (@$data) {
        my $name = "${package}::${item}";
        subname $name => $referent;
        no strict 'refs';
        *{$name} = $referent;
    }
}
1;


__END__