File Coverage

blib/lib/Webqq/Qun/Base.pm
Criterion Covered Total %
statement 12 23 52.1
branch 0 2 0.0
condition 0 3 0.0
subroutine 4 6 66.6
pod 0 2 0.0
total 16 36 44.4


line stmt bran cond sub pod time code
1             package Webqq::Qun::Base;
2 1     1   4 use Carp;
  1         1  
  1         42  
3 1     1   4 use strict;
  1         1  
  1         18  
4 1     1   508 use Data::Dumper;
  1         4297  
  1         57  
5 1     1   5 use Scalar::Util qw(blessed reftype);
  1         1  
  1         202  
6             sub dump {
7 0     0 0   my $self = shift;
8 0           print Dumper $self;
9             }
10             sub each {
11 0     0 0   my $self = shift;
12 0           my $callback = pop;
13 0           my @data;
14 0 0 0       if(@_ == 1 and reftype $_[0] eq 'ARRAY'){
15 0           @data = @{$_[0]};
  0            
16             }
17             else{
18 0           @data = @_;
19             }
20 0           for (@data){
21 0           $callback->($_);
22             }
23             }
24             1;