File Coverage

blib/lib/Pad/Tie/Plugin.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch			n/a
condition	2	3	66.6
subroutine	5	6	83.3
pod	2	2	100.0
total	30	33	90.9

use strict;
use warnings;

package Pad::Tie::Plugin;

use Data::OptList;
use Carp ();

sub provides {
  Carp::confess "subclass $_[0] did not override virtual method 'provides'";
}

# 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__