File: required.t

package info (click to toggle)
libmoox-types-mooselike-perl 0.27-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 192 kB
  • ctags: 14
  • sloc: perl: 492; makefile: 2
file content (23 lines) | stat: -rw-r--r-- 478 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
{

  package MyObject;
  use Moo;
  use MooX::Types::MooseLike::Base qw<HashRef>;

  has required_parameterized_hashref => (
    is       => "ro",
    isa      => HashRef [HashRef],
    required => 1,
    );
}
use Test::More;
use Test::Fatal;
ok(MyObject->new(required_parameterized_hashref => { a => {} }),
  'Required parameterized type');
like(
  exception { MyObject->new },
  qr/Missing required arguments/,
  'A required parameterized type must exist'
  );

done_testing;