File Coverage

lib/Dancer/Plugin/MobileDevice.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition	2	2	100.0
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

package Dancer::Plugin::MobileDevice;
our $AUTHORITY = 'cpan:YANICK';
#ABSTRACT: make a Dancer app mobile-aware
$Dancer::Plugin::MobileDevice::VERSION = '0.06';
use strict;
use warnings;

use Dancer ':syntax';
use Dancer::Plugin;

register 'is_mobile_device' => sub {
    no warnings 'uninitialized';
    return request->user_agent
        =~ /(?:iP(?:ad|od|hone)|Android|BlackBerry|Mobile|Palm)/ || 0 ;
};

hook before => sub {
    # If we don't have a mobile layout declared, do nothing.
    my $mobile_layout = plugin_setting->{mobile_layout}
        and is_mobile_device()
        or return;

    var orig_layout => setting('layout');
    setting layout => $mobile_layout;
};

hook after => sub {
    setting layout => delete vars->{orig_layout}
        if plugin_setting->{mobile_layout}
        and is_mobile_device();
};

hook before_template => sub {
    my $tokens = shift;
    $tokens->{'is_mobile_device'} = is_mobile_device();
};

register_plugin;

1;

__END__