File Coverage

blib/lib/Sub/DeferredPartial/Attributes.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition	1	3	33.3
subroutine	3	3	100.0
pod	0	1	0.0
total	18	21	85.7

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;

=head1 NAME

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

=head1 AUTHOR

Steffen Goeldner

=head1 COPYRIGHT

Copyright (c) 2004 Steffen Goeldner. All rights reserved.

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

=cut