File Coverage

blib/lib/Mojolicious/Plugin/DevexpressHelpers.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition	1	2	50.0
subroutine	6	6	100.0
pod	1	1	100.0
total	30	31	96.7

package Mojolicious::Plugin::DevexpressHelpers;
our $VERSION = '0.01';

use Modern::Perl;
use Mojo::Base 'Mojolicious::Plugin';
use Mojolicious::Plugin::DevexpressHelpers::Helpers;
use MojoX::AlmostJSON;




sub register {
    my ($self, $app, $args) = @_;

    #TODO: add assetpack
    #plugin "AssetPack";
    #app->asset( ... );

    my $tp = $args->{'tag_prefix'} // 'dx';

    $app->helper( 'dxbuild' => \&Mojolicious::Plugin::DevexpressHelpers::Helpers::dxbuild );
    $app->helper( $tp.'button' => \&Mojolicious::Plugin::DevexpressHelpers::Helpers::dxbutton );
    $app->helper( $tp.'datagrid' => \&Mojolicious::Plugin::DevexpressHelpers::Helpers::dxdatagrid );

    #make json boolean easier to write within templates
    $app->helper( 'true' => \&MojoX::AlmostJSON::true );
    $app->helper( 'false' => \&MojoX::AlmostJSON::false );

    $app->hook(before_dispatch => sub{
        my $c = shift;
        #create a new object that will help to generate binding for dx controls
        $c->stash('dxHelper' => Mojolicious::Plugin::DevexpressHelpers::Helpers->new );
    });

}


1; # End of Mojolicious::Plugin::DevexpressHelpers

__END__