[gitmo/Moo.git] / t / lib / ClassicObject.pm

package ClassicObject;

sub new {
    my ($class, %args) = @_;
    bless \%args, 'ClassicObject';
}

sub connect { 'a' }

1;
Commit	Line	Data
777fcfcf	1	package ClassicObject;
	2
	3	sub new {
	4	my ($class, %args) = @_;
	5	bless \%args, 'ClassicObject';
	6	}
	7
	8	sub connect { 'a' }
	9
	10	1;