File Coverage

blib/lib/Stacktrace/Configurable/Frame.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	1	0.0
total	31	35	88.5

package Stacktrace::Configurable::Frame;

use strict;
use 5.01;
our $VERSION = '0.01';

our @attr;

sub new {
    my $class=shift;
    $class=ref($class)||$class;

    my $I=bless {}=>$class;

    @{$I}{@attr} = @_;

    return $I;
}

BEGIN {
    @attr=(qw/package filename line subroutine hasargs
              wantarray evaltext is_require hints bitmask
              hinthash nr args/);
    for (@attr) {
        my $attr=$_;
        no strict 'refs';
        *{__PACKAGE__.'::'.$attr}=sub : lvalue {
            my $I=$_[0];
            $I->{$attr}=$_[1] if @_>1;
            $I->{$attr};
        };
    }
}

1;
__END__