File Coverage

blib/lib/Plack/Handler/Stomp/Types.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Plack::Handler::Stomp::Types;
2             $Plack::Handler::Stomp::Types::VERSION = '1.14';
3             {
4             $Plack::Handler::Stomp::Types::DIST = 'Plack-Handler-Stomp';
5             }
6 13         137 use MooseX::Types -declare =>
7             [qw(
8             Logger
9             PathMapKey Path
10             PathMap
11 13     13   90 )];
  13         30  
12 13     13   69378 use MooseX::Types::Moose qw(Str);
  13         33  
  13         87  
13 13     13   60967 use MooseX::Types::Structured qw(Map);
  13         4075482  
  13         141  
14 13     13   9107 use MooseX::Types::Common::String qw(NonEmptySimpleStr);
  13         977287  
  13         123  
15 13     13   37381 use namespace::autoclean;
  13         36  
  13         140  
16              
17             # ABSTRACT: type definitions for Plack::Handler::Stomp
18              
19              
20             duck_type Logger, [qw(debug info
21             warn error)];
22              
23              
24             subtype PathMapKey, as Str,
25             where { m{^/(?:queue|topic|subscription)/} };
26              
27              
28             subtype Path, as NonEmptySimpleStr;
29              
30              
31             subtype PathMap, as Map[PathMapKey,Path];
32              
33             1;
34              
35             __END__
36              
37             =pod
38              
39             =encoding UTF-8
40              
41             =head1 NAME
42              
43             Plack::Handler::Stomp::Types - type definitions for Plack::Handler::Stomp
44              
45             =head1 VERSION
46              
47             version 1.14
48              
49             =head1 TYPES
50              
51             =head2 C<Logger>
52              
53             Any object that can C<debug>, C<info>, C<warn>, C<error>.
54              
55             =head2 C<PathMapKey>
56              
57             A string starting with C</queue/>, C</topic/> or C</subscription/>.
58              
59             =head2 C<Path>
60              
61             A non-empty string.
62              
63             =head2 C<PathMap>
64              
65             A hashref with keys maching L</PathMapKey> and values maching L</Path>.
66              
67             =head1 AUTHOR
68              
69             Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>
70              
71             =head1 COPYRIGHT AND LICENSE
72              
73             This software is copyright (c) 2012 by Net-a-porter.com.
74              
75             This is free software; you can redistribute it and/or modify it under
76             the same terms as the Perl 5 programming language system itself.
77              
78             =cut