Added an example of a complex unit, and lo and behold, found and fixe…

…d a bug
jberger · Dec 9, 2011 · 6763ed2 · 6763ed2
1 parent 976f870
commit 6763ed2
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 1 deletion.
diff --git a/ex/example.pl b/ex/example.pl
@@ -0,0 +1,17 @@
+package MyTest;
+
+use lib 'lib';
+use Moose;
+use MooseX::Types::NumUnit qw/num_of_unit/;
+
+#$MooseX::Types::NumUnit::Verbose = 1;
+
+has 'speed' => ( isa => num_of_unit('ft / hour'), is => 'rw', required => 1 );
+
+no Moose;
+__PACKAGE__->meta->make_immutable;
+
+my $test = MyTest->new( speed => '2 m / s' );
+
+print $test->speed, "\n";
+
diff --git a/lib/MooseX/Types/NumUnit.pm b/lib/MooseX/Types/NumUnit.pm
@@ -69,7 +69,7 @@ sub convert {
       $requested_unit = $base_unit;
     }
 
-    my $req_str = $requested_unit->name . " [" . $requested_unit->expanded . "]";
+    my $req_str = ($requested_unit->name || $requested_unit->def) . " [" . $requested_unit->expanded . "]";
 
     my $conv_error = 0;
     {