File Coverage

blib/lib/Pad/Tie/Plugin.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition	2	3	66.6
subroutine	4	4	100.0
pod	1	1	100.0
total	25	26	96.1

use strict;
use warnings;

package Pad::Tie::Plugin;

use Data::OptList;

# input: ( [ foo => { -as => 'bar' } ], ... )
# return: { foo => 'bar', ... }
sub canon_args {
  my ($plugin, $args) = @_;

  my %n;
  my @args = @{ Data::OptList::mkopt($args) };
  for (@args) {
    my ($method, $xtra) = @$_;
    my $name = $xtra->{-as} || $method;
    #$name = "$xtra->{-prefix}$name" if $xtra->{-prefix};
    $n{$method} = $name;
  }
  return \%n;
}

1;

__END__