File Coverage

blib/lib/Mojolicious/Plugin/DevexpressHelpers.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition 2 4 50.0
subroutine 6 6 100.0
pod 1 1 100.0
total 30 32 93.7


line stmt bran cond sub pod time code
1             package Mojolicious::Plugin::DevexpressHelpers;
2             $Mojolicious::Plugin::DevexpressHelpers::VERSION = '0.163571';
3             #ABSTRACT: Add some helpers to add and configure Devexpress controls
4 7     7   18723 use Modern::Perl;
  7         15998  
  7         35  
5 7     7   1164 use Mojo::Base 'Mojolicious::Plugin';
  7         1855  
  7         40  
6 7     7   3973 use Mojolicious::Plugin::DevexpressHelpers::Helpers;
  7         14  
  7         163  
7 7     7   29 use MojoX::AlmostJSON;
  7         8  
  7         909  
8              
9              
10              
11              
12             sub register {
13 6     6 1 221 my ( $self, $app, $args ) = @_;
14              
15 6   50     36 $args->{'tag_camelcase'} //= 1;
16 6   50     26 $args->{'tag_prefix'} //= 'dx';
17 6         19 Mojolicious::Plugin::DevexpressHelpers::Helpers->register( $app, $args );
18              
19             #make json boolean easier to write within templates
20 6         63 $app->helper( 'true' => \&MojoX::AlmostJSON::true );
21 6         66 $app->helper( 'false' => \&MojoX::AlmostJSON::false );
22              
23             $app->hook(
24             before_dispatch => sub {
25 12     12   109416 my $c = shift;
26              
27             #create a new object that will help to generate binding for dx controls
28 12         101 $c->stash( 'dxHelper' =>
29             Mojolicious::Plugin::DevexpressHelpers::Helpers->new );
30             }
31 6         74 );
32              
33             }
34              
35              
36             1; # End of Mojolicious::Plugin::DevexpressHelpers
37              
38             __END__