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