NAME

Caller::Easy - less stress to remind returned list from CORE::caller()

SYNOPSIS

use Caller::Easy; # Module name is temporal

# the way up to now
sub foo {
   my $subname = (caller(0))[3];
}

# with OO
sub foo {
   my $subname = Caller::Easy->new(0)->subroutine();
}

# like a function imported
sub foo {
   my $subname = caller(0)->subroutine();
}

All the above will return 'main::foo'

Now you can choise the way you much prefer

DESCRIPTION

Caller::Easy is the easiest way for using functions of CORE::caller()

it produces the easier way to get some info from caller() with no having to care about namespace.

Constructor and initialization

new()

You can set no argument then it returns the object reference in scalar context.

In list context, you can get just only ( $package, $filename, $line ).

if you set depth(level) like new(1), you can get more info from caller ( $package, $filename, $line, $subroutine, $hasargs, $wantarray, $evaltext, $is_require, $hints, $bitmask, $hinthash ) directly with same term for CORE::caller()

To be strictly, you can set depth parameter like new( depth => 1 ) but we can forget it, just set the natural number you want to set.

Methods (All of them is read-only)

caller()

It is implemented to be alias of new() but it doesn't matter.

this method is imported to your packages automatically when you use Caller::Easy;

So you can use much freely this method like if there is no module imported.

package()

You can get package name instead of (caller(n))[0]

filename() (is read-only)

You can get file name instead of (caller(n))[1]

line()

You can get the line called instead of (caller(n))[2]

subroutine()

You can get the name of subroutine instead of (caller(n))[3]

hasargs(), wantarray(), evaltext(), is_require(), hints(), bitmask(), hinthash()

Please read CORE::caller

Don't ask me

args()

You can get the arguments of targeted subroutine instead of @DB::args

This method is the unique point of this module.

depth()

You can get what you set.

TODO

• using Moose is a bottle-neck

  I made this module in a few days with Moose because it's the easiest way. It will be too heavy for some environments.

  To abolish Moose is a TODO if this module will be popular.

• rewite the tests

  I don't know well about CORE::caller!

  Why I have written this module is Just only I can't remember what I wanna get with something number from caller() without some reference.

  So some of tests may not be appropriate.

• rename the module

  I have to find the name that deserve it.

• rewite the POD

  I know well that my english is awful.

SEE ALSO

• CORE::caller

  If you are confused with this module, Please read this carefully.

• Perl6::Caller

  One of better implements for using something like this module.

  The reason why I reinvent the wheel is that this module has no github repository.

• Safe::Caller

  The newest implement for using something like this module.

  It has github repository but usage is limited.

LICENSE

Copyright (C) Yuki Yoshida.

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

AUTHOR

Yuki Yoshida worthmine@gmail.com