Sub::DeferredPartial::Attributes - A simple subroutine attribute handler.

Sub-DeferredPartial documentation

Contained in the Sub-DeferredPartial distribution.

Index

NAME
AUTHOR
COPYRIGHT

Code Index:

package Sub::DeferredPartial::Attributes
EOF

NAME

Sub::DeferredPartial::Attributes - A simple subroutine attribute handler.

AUTHOR

Steffen Goeldner <sgoeldner@cpan.org>

COPYRIGHT

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

Sub-DeferredPartial documentation

Contained in the Sub-DeferredPartial distribution.

package Sub::DeferredPartial::Attributes;

our $VERSION = '0.01';

my %Subs = ();
# -----------------------------------------------------------------------------
sub import
# -----------------------------------------------------------------------------
{
  my $class  = shift;
  my $caller = shift || caller;
  my $isa    = $caller . '::ISA';

  push @$isa, $class;
}
# -----------------------------------------------------------------------------
sub MODIFY_CODE_ATTRIBUTES
# -----------------------------------------------------------------------------
{
  my $Pkg = shift;
  my $Sub = shift;

  $Subs{$Sub} = [ @_ ];

  return ();
}
# -----------------------------------------------------------------------------
sub Hash
# -----------------------------------------------------------------------------
{
  my $class = shift;
  my $Sub   = shift;
  my %Atts;

  @Atts{@{$Subs{$Sub}}} = ();

  return \%Atts;
}
# -----------------------------------------------------------------------------
1;