File Coverage

blib/lib/HTTP/MobileAgent/Plugin/SmartPhone.pm

Criterion	Covered	Total	%
statement	39	45	86.6
branch	4	12	33.3
condition	10	16	62.5
subroutine	12	15	80.0
pod	0	12	0.0
total	65	100	65.0

package HTTP::MobileAgent::Plugin::SmartPhone;
use strict;
use warnings;
use utf8;
our $VERSION = '0.03';

sub HTTP::MobileAgent::is_smartphone {
    my $self = shift;
    $self->is_ios || $self->is_android;
}

sub HTTP::MobileAgent::is_ios {
    my $self = shift;

    my $ua = $self->user_agent || '';
    $ua =~ /\(iP(?:hone|od|ad)/;
}

sub HTTP::MobileAgent::is_iphone {
    my $self = shift;

    my $ua = $self->user_agent || '';
    $ua =~ /\(iPhone/;
}

sub HTTP::MobileAgent::is_ipad {
    my $self = shift;

    my $ua = $self->user_agent || '';
    $ua =~ /\(iPad/;
}

sub HTTP::MobileAgent::is_ipod {
    my $self = shift;

    my $ua = $self->user_agent || '';
    $ua =~ /\(iPod/;
}

sub HTTP::MobileAgent::is_android {
    my $self = shift;

    my $ua = $self->user_agent || '';
    $ua =~ /Android/;
}

sub HTTP::MobileAgent::is_android_tablet {
    my $self = shift;
    $self->is_android && $self->user_agent !~ /Mobile/
}

sub HTTP::MobileAgent::ios_full_version {
    my $self = shift;
    return () unless $self->is_ios;

    local $1;
    my $full_version;
    if ($self->user_agent =~ /CPU (?:iPhone )?(?:OS ((?:\d+)(?:_\d+)*) )?like/) {
        $full_version = $1 || 1;
    }
    $full_version;
}

sub HTTP::MobileAgent::ios_version {
    my ($version) = (shift->ios_full_version || '') =~ /^(\d+)/;
    $version;
}

sub HTTP::MobileAgent::is_tablet {
    my $self = shift;
    $self->is_ipad || $self->is_android_tablet;
}

sub HTTP::MobileAgent::android_full_version {
    my $self = shift;
    return () unless $self->is_android;

    my ($full_version) = $self->user_agent =~ /Android\s*([0-9\.]+).*?;/;
    $full_version;
}

sub HTTP::MobileAgent::android_version {
    my ($version) = (shift->android_full_version || '') =~ /^((?:\d+)(?:\.\d+)?)/;
    $version;
}

1;
__END__