File Coverage

blib/lib/Attribute/Method/Tags.pm

Criterion	Covered	Total	%
statement	34	36	94.4
branch	2	4	50.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	46	50	92.0

package Attribute::Method::Tags;

use strict;
use warnings;

use Attribute::Handlers;
use Attribute::Method::Tags::Registry;
use Carp qw( croak );

our $VERSION = '0.11';

sub import {
    # add this package to callers @ISA, as attributes only work via inheritance

    no strict 'refs';

    my $caller = caller;
    push @{ "${ caller }::ISA" }, __PACKAGE__;
}

sub Tags : ATTR(CODE,RAWDATA) {
    my ( $class, $symbol, undef, undef, $data, undef, $file, $line ) = @_;

    $data =~ s/^\s+//g;

    my @tags = split /\s+/, $data;

    if ( $symbol eq 'ANON' ) {
        die "Cannot tag anonymous subs at file $file, line $line\n";
    }

    my $method = *{ $symbol }{ NAME };

    {           # block for localising $@
        local $@;

        Attribute::Method::Tags::Registry->add(
            $class,
            $method,
            \@tags,
        );
        if ( $@ ) {
            croak "Error in adding tags: $@";
        }
    }
}

1;

__END__