File Coverage

blib/lib/App/revealup/base.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	9	10	90.0
condition			n/a
subroutine	9	9	100.0
pod	0	1	0.0
total	52	54	96.3

package App::revealup::base;
use strict;
use warnings;

sub import {
    my $caller = caller(0);
    no strict 'refs';
    *{"${caller}::has"} = sub { attr($caller, @_) };
    *{"${caller}::new"} = sub {
        my ($klass, %opt) = @_;
        for my $key (keys %opt) {
            attr($caller, $key, $opt{$key}) if $opt{$key};
        }
        return bless \%opt, $klass;
    };
    strict->import;
    warnings->import;
}

sub attr {
    my ( $caller, $k, $v ) = @_;
    no strict 'refs';
    return if defined *{"${caller}::$k"};
    *{"${caller}::$k"} = sub {
        my ( $self, $value ) = @_;
        if ( !$value ) {
            $self->{$k} = $v if !$self->{$k};
            return $self->{$k};
        }
        $self->{$k} = $value if $value;
    };
}

1;