more small style tweaks for AH tests
Dave Rolsky [Fri, 26 Jun 2009 22:03:57 +0000 (17:03 -0500)]
t/070_attribute_helpers/201_trait_counter.t
t/070_attribute_helpers/202_trait_array.t
t/070_attribute_helpers/203_trait_hash.t
t/070_attribute_helpers/204_trait_number.t
t/070_attribute_helpers/205_trait_list.t
t/070_attribute_helpers/207_trait_string.t

index 31f8671..cdb0642 100644 (file)
@@ -12,7 +12,7 @@ use Test::Moose 'does_ok';
     use Moose::AttributeHelpers;
 
     has 'counter' => (
-        traits  => [qw/Counter/],
+        traits  => ['Counter'],
         is      => 'ro',
         isa     => 'Int',
         default => 0,
index ebbff5f..cab89d0 100644 (file)
@@ -16,7 +16,7 @@ my $sort;
     use Moose::AttributeHelpers;
 
     has 'options' => (
-        traits  => [qw/Collection::Array/],
+        traits  => ['Collection::Array'],
         is      => 'ro',
         isa     => 'ArrayRef[Str]',
         default => sub { [] },
index 15bcda5..b809571 100644 (file)
@@ -13,7 +13,7 @@ use Test::Moose 'does_ok';
     use Moose::AttributeHelpers;
 
     has 'options' => (
-        traits  => [qw/Collection::Hash/],
+        traits  => ['Collection::Hash'],
         is      => 'ro',
         isa     => 'HashRef[Str]',
         default => sub { {} },
index ad477ee..9b2c700 100644 (file)
@@ -12,7 +12,7 @@ use Test::Moose;
     use Moose::AttributeHelpers;
 
     has 'integer' => (
-        traits  => [qw/Number/],
+        traits  => ['Number'],
         is      => 'ro',
         isa     => 'Int',
         default => 5,
index 9b27ad2..1c342e6 100644 (file)
@@ -16,7 +16,7 @@ my $up;
     use Moose::AttributeHelpers;
 
     has '_options' => (
-        traits   => [qw/Collection::List/],
+        traits   => ['Collection::List'],
         is       => 'ro',
         isa      => 'ArrayRef[Int]',
         init_arg => 'options',
index 48183dc..a6af0ad 100644 (file)
@@ -13,7 +13,7 @@ my $uc;
     use Moose::AttributeHelpers;
 
     has 'string' => (
-        traits  => [qw/String/],
+        traits  => ['String'],
         is      => 'rw',
         isa     => 'Str',
         default => sub {''},