File Coverage

blib/lib/Dancer/Plugin/MobileDevice.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Dancer::Plugin::MobileDevice;
{
  $Dancer::Plugin::MobileDevice::VERSION = '0.05';
}
#ABSTRACT: make a Dancer app mobile-aware

use strict;
use warnings;

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

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

hook before => sub {
    # If we don't have a mobile layout declared, do nothing.
    my $settings = plugin_setting || {};

    if (my $mobile_layout = $settings->{mobile_layout}) {
        # OK, remember the original layout setting (so we can restore it
        # after the request), and override it with the specified mobile layout.
        if (is_mobile_device()) {
            var orig_layout => setting('layout');
            setting layout => $mobile_layout;
        }
    }
};

hook after => sub {
    my $settings = plugin_setting || {};
    if ( $settings->{mobile_layout} && is_mobile_device() ) {
        setting layout => delete vars->{orig_layout};
    }
};

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

register_plugin for_versions => [ 1, 2 ];

1;

__END__