package Test::Magpie::Types; { $Test::Magpie::Types::VERSION = '0.11'; } # ABSTRACT: Type constraints used by Magpie use MooseX::Types -declare => [qw( Mock NumRange )]; use MooseX::Types::Moose qw( Num ); use MooseX::Types::Structured qw( Tuple ); subtype NumRange, as Tuple[Num, Num]; class_type Mock, { class => 'Test::Magpie::Mock' }; 1; __END__ =pod =encoding utf-8 =head1 NAME Test::Magpie::Types - Type constraints used by Magpie =head1 DESCRIPTION This class is mostly meant for internal purposes. =head1 TYPES =head2 Mock Verifies that an object is a Magpie mock =head1 AUTHORS =over 4 =item * Oliver Charles =item * Steven Lee =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2013 by Oliver Charles. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut