Login
Added test for legit-but-falsely-identified-as-bad form of bless, with a fat comma
authorAndy Lester <andy@petdance.com>
Fri, 14 Jul 2006 22:15:13 +0000 (22:15 +0000)
committerAndy Lester <andy@petdance.com>
Fri, 14 Jul 2006 22:15:13 +0000 (22:15 +0000)
t/20_policies_classhierarchies.t

index ca36656..5317195 100644 (file)
@@ -43,6 +43,7 @@ my $self = bless {}, 'foo';
 my $self = bless( {}, 'foo' );
 my $self = bless [], 'foo';
 my $self = bless( [], 'foo' );
+my $self = bless {} => 'foo';
 END_PERL
 
 $policy = 'ClassHierarchies::ProhibitOneArgBless';