t/lib/TestPluginWithConstructor.pm

   1 # See t/plugin_new_method_backcompat.t
   2 package Class::Accessor::Fast;
   3 use strict;
   4 use warnings;
   5
   6 sub new {
   7     my $class = shift;
   8     return bless $_[0], $class;
   9 }
  10
  11 package TestPluginWithConstructor;
  12 use strict;
  13 use warnings;
  14 use base qw/Class::Accessor::Fast/;
  15
  16 1;
  17