The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# See t/plugin_new_method_backcompat.t
package Class::Accessor::Fast;
use strict;
use warnings;

sub new {
    my $class = shift;
    return bless $_[0], $class;
}

package TestPluginWithConstructor;
use strict;
use warnings;
use base qw/Class::Accessor::Fast/;

1;