File Coverage

blib/lib/Sub/Inspector.pm

Criterion	Covered	Total	%
statement	43	45	95.5
branch	7	8	87.5
condition	1	3	33.3
subroutine	18	20	90.0
pod	6	10	60.0
total	75	86	87.2

package Sub::Inspector;
use 5.008_001;
use strict;
use warnings;
use B ();
use Carp ();
our @CARP_NOT;
use attributes;
use Data::Dumper ();
use Data::Dump::Streamer ();

our $VERSION = '0.05';

sub new {
    my ($class, $code) = @_;
    _throw($code) unless ref($code) eq 'CODE';
    bless +{ code => $code }, $class;
}

sub file { B::svref_2object(_code(@_))->GV->FILE }
sub line { B::svref_2object(_code(@_))->GV->LINE }
sub name { B::svref_2object(_code(@_))->GV->NAME }

sub proto     { B::svref_2object(_code(@_))->PV }
sub prototype { proto(@_) }

sub attrs      { attributes::get(_code(@_)) }
sub attributes { attrs(@_) }

sub dump      { Data::Dump::Streamer::Dumper(_code(@_)) }
sub as_string { Sub::Inspector::dump(@_) }

sub _throw {
    local $Data::Dumper::Indent = 1;
    local $Data::Dumper::Terse  = 1;
    local @CARP_NOT = (__PACKAGE__);
    Carp::croak "argument isn't a subroutine reference: " . Data::Dumper::Dumper($_[0]);
}

sub _code {
    my ($stuff, $arg) = @_;
    # instance method
    if (ref($stuff) eq __PACKAGE__) {
        return $stuff->{code};
    # calss method
    } elsif (defined($stuff) && $stuff eq __PACKAGE__) {
        return $arg if (ref($arg) eq 'CODE');
        _throw($arg);
    }
}

1;
__END__