File Coverage

blib/lib/POE/Component/Server/Bayeux/Message/Invalid.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             package POE::Component::Server::Bayeux::Message::Invalid;
2              
3             =head1 NAME
4              
5             POE::Component::Server::Bayeux::Message::Invalid - invalid message
6              
7             =head1 DESCRIPTION
8              
9             Subclasses L. Just an error, really.
10              
11             =cut
12              
13 3     3   3107 use strict;
  3         8  
  3         107  
14 3     3   15 use warnings;
  3         8  
  3         80  
15 3     3   14 use base qw(POE::Component::Server::Bayeux::Message);
  3         6  
  3         1941  
16              
17             sub is_error {
18 0     0 1   return "Invalid message";
19             }
20              
21             =head1 COPYRIGHT
22              
23             Copyright (c) 2008 Eric Waters and XMission LLC (http://www.xmission.com/).
24             All rights reserved. This program is free software; you can redistribute it
25             and/or modify it under the same terms as Perl itself.
26              
27             The full text of the license can be found in the LICENSE file included with
28             this module.
29              
30             =head1 AUTHOR
31              
32             Eric Waters
33              
34             =cut
35              
36             1;