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