package Sub::Inspector;
use 5.008_001;
use strict;
use warnings;
use B ();
use Carp ();
use attributes;
use Data::Dumper;

our $VERSION = '0.01';

sub new {
    my ($class, $code) = @_;
    ref $code eq 'CODE' || do {
        local $Data::Dumper::Indent = 1;
        local $Data::Dumper::Terse  = 1;
        Carp::croak "argument isn't a subroutine reference: " . Dumper($code);
    };
    bless +{ code => $_[1] }, $_[0]
}

sub file { B::svref_2object($_[0]->{code})->GV->FILE }
sub line { B::svref_2object($_[0]->{code})->GV->LINE }
sub name { B::svref_2object($_[0]->{code})->GV->NAME }

sub proto     { B::svref_2object($_[0]->{code})->PV }
sub prototype { proto(@_) }

sub attrs      { attributes::get($_[0]->{code}) }
sub attributes { attrs(@_) }

1;
__END__

=head1 NAME

Sub::Inspector - get infomation from a subroutine reference

=head1 VERSION

This document describes Sub::Inspector version 0.01.

=head1 SYNOPSIS

    use Sub::Inspector;

    # get file, line, name

    use File::Spec;
    my $code = File::Spec->can('canonpath');
    my $inspector = Sub::Inspector->new($code);

    print $inspector->file; #=> '/Users/Cside/perl5/ ... /File/Spec/Unix.pm'
    print $inspector->line; #=> 71
    print $inspector->name; #=> 'canonpath'

    # get prototype

    use Try::Tiny;
    my $inspector2 = Sub::Inspector->new(\&try);

    print $inspector2->proto; #=> '&;@'

    # get attributes

    use AnyEvent::Handle;
    my $code = AnyEvent::Handle->can('rbuf');
    my $inspector3 = Sub::Inspector->new(\&try);

    print $inspector3->attrs; #=> ('lvalue')

=head1 DESCRIPTION

This module enable to get metadata (prototype, attributes, method name, etc) from a coderef.
We can get them by the buit-in module, B.pm. However, it is a bit difficult to memorize how to use it.

=head1 INTERFACE

=head2 Methods

=over

=item $inspector->file

=item $inspector->line

=item $inspector->name

=item $inspector->proto

alias: prototype

=item $inspector->attrs

alias: attributes

=back

=head1 SEE ALSO

=over

=item L<B>

=item L<B::Deparser>

=back

=head1 AUTHOR

Hiroki Honda (Cside) E<lt>cside.story [at] gmail.comE<gt>

=head1 LICENSE AND COPYRIGHT

Copyright (c) Hiroki Honda.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut