File Coverage

blib/lib/Attribute/Universal.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	1	2	50.0
condition			n/a
subroutine	14	14	100.0
pod	0	5	0.0
total	49	55	89.0

use 5.016;
use strict;
use warnings FATAL => 'all';

package Attribute::Universal;

# ABSTRACT: Install attribute handlers directly into UNIVERSAL namespace

use Attribute::Handlers 0.99;

our $VERSION = '0.001';    # VERSION

sub import {
    my $class  = shift;
    my $caller = scalar caller;
    my %cfg    = @_;
    foreach my $name ( keys %cfg ) {
        my $cfg = uc( $cfg{$name} );
        ## no critic
        eval qq{
      sub UNIVERSAL::$name : ATTR($cfg) {
        goto &${caller}::ATTRIBUTE;
      }
    };
        ## use critic
        die "cannot install universal attribute $name in $caller: $@" if $@;
    }
}

1;

__END__