[catagits/Catalyst-Runtime.git] / t / lib / TestPluginWithConstructor.pm

# 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;
Commit	Line	Data
6a8f85af	1	# See t/plugin_new_method_backcompat.t
278ff444	2	package Class::Accessor::Fast;
6a8f85af	3	use strict;
6a8f85af	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;
6a8f85af	17