File Coverage

blib/lib/Mojo/IRC/Server/Object.pm
Criterion Covered Total %
statement 6 36 16.6
branch n/a
condition n/a
subroutine 2 14 14.2
pod 1 12 8.3
total 9 62 14.5


line stmt bran cond sub pod time code
1             package Mojo::IRC::Server::Object;
2 1     1   4 use Mojo::IRC::Server::Base 'Mojo::EventEmitter';
  1         2  
  1         9  
3 1     1   5 use Data::Dumper;
  1         2  
  1         485  
4             sub dump {
5 0     0 0   my $s = shift;
6 0           print Dumper $s;
7             }
8             sub servername{
9 0     0 0   my $s = shift;
10 0           $s->{_server}->servername;
11             }
12             sub serverident{
13 0     0 0   my $s = shift;
14 0           $s->{_server}->ident;
15             }
16              
17             sub new_channel {
18 0     0 0   my $s= shift;
19 0           return $s->{_server}->new_channel(@_);
20             }
21             sub search_channel{
22 0     0 0   my $s = shift;
23 0           return $s->{_server}->search_channel(@_);
24             }
25             sub search_user{
26 0     0 0   my $s = shift;
27 0           return $s->{_server}->search_user(@_);
28             }
29              
30             sub die{
31 0     0 0   my $s = shift;
32 0           $s->{_server}->die(@_);
33 0           $s;
34             }
35             sub info{
36 0     0 0   my $s = shift;
37 0           $s->{_server}->info(@_);
38 0           $s;
39             }
40             sub warn{
41 0     0 0   my $s = shift;
42 0           $s->{_server}->warn(@_);
43 0           $s;
44             }
45             sub error{
46 0     0 1   my $s = shift;
47 0           $s->{_server}->error(@_);
48 0           $s;
49             }
50             sub fatal{
51 0     0 0   my $s = shift;
52 0           $s->{_server}->fatal(@_);
53 0           $s;
54             }
55             sub debug{
56 0     0 0   my $s = shift;
57 0           $s->{_server}->debug(@_);
58 0           $s;
59             }
60             1;