File Coverage

blib/lib/HTML/Pictogram/MobileJp/Util.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package HTML::Pictogram::MobileJp::Util;
2 4     4   30250 use strict;
  4         16  
  4         159  
3 4     4   22 use warnings;
  4         7  
  4         114  
4 4     4   1986 use utf8;
  4         22  
  4         24  
5 4     4   3482 use parent qw/Exporter/;
  4         1459  
  4         19  
6              
7             our @EXPORT_OK = qw/is_iphone/;
8              
9             sub is_iphone {
10 8     8 0 1593 my $user_agent = shift;
11 8 100       101 $user_agent =~ /iPhone/ ? 1 : 0;
12             }
13              
14             1;
15