File Coverage

/tmp/.liveman/Aion-Emitter-0.1.1-0/aion!emitter.t/lib/Listener/RadiusListener.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 7 8 87.5


line stmt bran cond sub pod time code
1             package Listener::RadiusListener;
2              
3 1     1   3006 use Aion;
  1         1  
  1         6  
4              
5             #@listen Event::BallEvent
6             sub listen {
7 1     1 0 2 my ($self, $event) = @_;
8            
9 1         16 $event->radius(10);
10             }
11              
12             1;