root/lang/perl/arguments/trunk/lib/arguments.pm @ 14595

package arguments;

use strict;
use warnings;

our $VERSION = '0.03';

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(arguments callee);

sub arguments {
  { package DB; () = caller(1); }
  return wantarray
    ? @DB::args
    : bless \@DB::args, 'arguments';
}

sub length {
  { package DB; () = caller(1); }
  return scalar @DB::args;
}

require XSLoader;
XSLoader::load('arguments', $VERSION);

sub callee {
    my $cx = upcontext(1);
    return sub {} unless $cx;
    return $cx;
}

1;
__END__

=head1 NAME

arguments.xs - Perl extension for arguments::callee

=head1 SYNOPSIS

  use arguments;

  print sub {
    my $x = shift;
    return 1 if ($x <= 1);
    return $x * arguments->callee->($x - 1);
  }->(5); # 120

  sub {
    my $c = shift;
    print "$c\n";
    arguments->callee->($c) if ($c--);
  }->(10);

=head1 DESCRIPTION

inspired by arguments.callee from ECMAScript.

see also.
http://d.hatena.ne.jp/amachang/20080501/1209623634
http://d.hatena.ne.jp/amachang/20080501/1209640306

=head1 SEE ALSO

Devel::Caller, PadWalker

=head1 LICENSE

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

=cut