cpan/Module-Pluggable/t/lib/MyTest/Extend/Plugin/Bar.pm

   1 package MyTest::Extend::Plugin::Bar;
   2 use strict;
   3
   4 sub new {
   5         my $class = shift;
   6         my %self = @_;
   7
   8         return bless \%self, $class;
   9 }
  10
  11
  12 sub nork {
  13         return $_[0]->{'nork'};
  14 }
  15 1;
  16
  17