File Coverage

blib/lib/Attribute/Universal.pm

Criterion	Covered	Total	%
statement	34	40	85.0
branch	1	6	16.6
condition			n/a
subroutine	14	15	93.3
pod	1	6	16.6
total	50	67	74.6

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

package Attribute::Universal;

# ABSTRACT: Install L directly into UNIVERSAL namespace

use Attribute::Handlers 0.99;

our $VERSION = '0.002';    # 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 $@;
    }
}

sub to_hash {
    shift if $_[0] eq __PACKAGE__;
    my ( $package, $symbol, $referent, $attribute, $payload, $phase, $file,
        $line )
      = @_;
    my $label = ref($symbol) ? *{$symbol}{NAME} : undef;
    my $type = ref $referent;
    return {
        package   => $package,
        symbol    => $symbol,
        referent  => $referent,
        attribute => $attribute,
        payload   => $payload,
        phase     => $phase,
        file      => $file,
        line      => $line,
        label     => $label,
        type      => $type,
    };
}

1;

__END__