File Coverage

blib/lib/Devel/hdb.pm
Criterion Covered Total %
statement 25 39 64.1
branch 2 20 10.0
condition n/a
subroutine 7 8 87.5
pod n/a
total 34 67 50.7


line stmt bran cond sub pod time code
1 1     1   48670 use warnings;
  1         2  
  1         23  
2 1     1   3 use strict;
  1         2  
  1         19  
3              
4             package Devel::hdb;
5              
6 1     1   327 use Devel::hdb::App;
  1         2  
  1         38  
7 1     1   307 use Devel::hdb::TraceFollow;
  1         2  
  1         32  
8 1     1   5 use IO::Socket::INET;
  1         1  
  1         5  
9 1     1   348 use IO::File;
  1         1  
  1         348  
10              
11             our $VERSION = '0.23_15';
12              
13             sub import {
14 1     1   10 my $class = shift;
15              
16 1         1 our $TESTHARNESS;
17 1         1 my($trace, $follow);
18              
19 1         3 while (@_) {
20 0         0 my $param = shift;
21 0 0       0 if ($param =~ m/port:(\d+)/) {
    0          
    0          
    0          
    0          
    0          
    0          
22 0         0 our $PORT = $1;
23             } elsif ($param =~ m/host:([\w.]+)/) {
24 0         0 our $HOST = $1;
25             } elsif ($param eq 'a') {
26 0         0 our $HOST = inet_ntoa(INADDR_ANY);
27             } elsif ($param eq 'testharness') {
28 0         0 $TESTHARNESS = 1;
29             } elsif ($param =~ m/trace:(.*)/) {
30 0         0 $trace = $1;
31             } elsif ($param =~ m/follow:(.*)/) {
32 0         0 $follow = $1;
33             } elsif ($param =~ m/listenfd:(\d+)/) {
34 0         0 our $LISTEN_SOCK = IO::Socket::INET->new();
35 0         0 $LISTEN_SOCK->fdopen($1, 'r');
36             }
37              
38             }
39              
40 1         4 my $self = Devel::hdb::App->get();
41 1 50       4 if ($trace) {
    50          
42 0 0       0 print STDERR "Writing execution trace to $trace...\n" unless $TESTHARNESS;
43 0         0 $self->{trace} = Devel::hdb::Trace->new($trace);
44             } elsif ($follow) {
45             $self->{follow} = Devel::hdb::Follow->new(
46             $follow,
47 0     0   0 sub { $self->notify_trace_diff(@_) }
48 0         0 );
49             }
50              
51 1         6 $self->attach();
52             }
53             1;
54             __END__