Skip to content

Instantly share code, notes, and snippets.

@j1n3l0
Created January 25, 2010 23:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save j1n3l0/286399 to your computer and use it in GitHub Desktop.
Save j1n3l0/286399 to your computer and use it in GitHub Desktop.
#!/usr/bin/env perl
use Test::More;
use MooseX::Types::Moose qw(Str);
# Why does this method return "undef"?
# Is that intentional (because it's rather counter-intuitive)?
ok not( Str->validate('An instance of Str') ), 'returns undef';
done_testing;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment