File Coverage

blib/lib/POE/Component/Lightspeed/Constants.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             # Declare our package
2             package POE::Component::Lightspeed::Constants;
3              
4             # Standard stuff to catch errors
5 1     1   1582 use strict qw(subs vars refs); # Make sure we can't mess up
  1         4  
  1         52  
6 1     1   7 use warnings FATAL => 'all'; # Enable warnings to catch errors
  1         2  
  1         912  
7              
8             # Initialize our version
9             our $VERSION = '1.' . sprintf( "%04d", (qw($Revision: 1082 $))[1] );
10              
11             # We export some stuff
12             require Exporter;
13             our @ISA = qw( Exporter );
14             our %EXPORT_TAGS = ( 'ALL' => [ qw(
15             DEST_KERNEL DEST_SESSION DEST_STATE
16             FROM_KERNEL FROM_SESSION FROM_STATE FROM_FILE FROM_LINE
17             MSG_TO MSG_FROM MSG_ACTION MSG_DATA MSG_TIMESTAMP MSG_REALTO
18             POST_TO POST_FROM POST_ARGS
19             CALL_TO CALL_FROM CALL_ARGS CALL_RSVP
20             HELLO_EDGES
21             ROUTENEW_EDGES
22             LINKDOWN_TO LINKDOWN_FROM
23             CALLREPLY_TO CALLREPLY_FROM CALLREPLY_ARGS
24             INTROSPECTION_WHAT INTROSPECTION_FROM INTROSPECTION_RSVP INTROSPECTION_ARGS
25             ACTION_POST ACTION_CALL ACTION_CALLREPLY ACTION_ROUTENEW ACTION_ROUTEDEL ACTION_HELLO ACTION_INTROSPECTION
26             ) ] );
27             Exporter::export_ok_tags( 'ALL' );
28              
29             # Message specifiers
30             sub MSG_TO () { 0 }
31             sub MSG_FROM () { 1 }
32             sub MSG_ACTION () { 2 }
33             sub MSG_DATA () { 3 }
34             sub MSG_REALTO () { 4 }
35             sub MSG_TIMESTAMP () { 5 }
36              
37             # The destination specifiers
38             sub DEST_KERNEL () { 0 }
39             sub DEST_SESSION () { 1 }
40             sub DEST_STATE () { 2 }
41              
42             # The from specifiers
43             sub FROM_KERNEL () { 0 }
44             sub FROM_SESSION () { 1 }
45             sub FROM_STATE () { 2 }
46             sub FROM_FILE () { 3 }
47             sub FROM_LINE () { 4 }
48              
49             # Action specifiers
50             sub POST_TO () { 0 }
51             sub POST_FROM () { 1 }
52             sub POST_ARGS () { 2 }
53              
54             sub CALL_TO () { 0 }
55             sub CALL_FROM () { 1 }
56             sub CALL_RSVP () { 2 }
57             sub CALL_ARGS () { 3 }
58              
59             sub CALLREPLY_TO () { POST_TO }
60             sub CALLREPLY_FROM () { POST_FROM }
61             sub CALLREPLY_ARGS () { POST_ARGS }
62              
63             sub INTROSPECTION_WHAT () { 0 }
64             sub INTROSPECTION_FROM () { 1 }
65             sub INTROSPECTION_RSVP () { 2 }
66             sub INTROSPECTION_ARGS () { 3 }
67              
68             # Action constants
69             sub ACTION_POST () { 0 }
70             sub ACTION_CALL () { 1 }
71             sub ACTION_CALLREPLY () { 2 }
72             sub ACTION_ROUTENEW () { 3 }
73             sub ACTION_ROUTEDEL () { 4 }
74             sub ACTION_HELLO () { 5 }
75             sub ACTION_INTROSPECTION () { 6 }
76              
77             # End of module
78             1;
79             __END__