File Coverage

blib/lib/Mojolicious/Plugin/Helper/Vars.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	6	12	50.0
condition	1	2	50.0
subroutine	3	3	100.0
pod	1	1	100.0
total	32	41	78.0

package Mojolicious::Plugin::Helper::Vars;

use Mojo::Base 'Mojolicious::Plugin';

our $VERSION = '0.0002';
my $pkg = __PACKAGE__;

=pod

=encoding utf8

Доброго всем

=head1 Mojolicious::Plugin::Helper::Vars

¡ ¡ ¡ ALL GLORY TO GLORIA ! ! !

=head1 NAME

Mojolicious::Plugin::Helper::Vars - Stash & every_params to one var named.

=head1 SINOPSYS

    $app->plugin('Helper::Vars');

    # controller
    $c->param('foo'=>[1,2,3]);
    $foo = $c->vars('foo'); # 1

    $c->stash('foo'=>['undef']);
    $c->stash('Foo'=>5);
    @foo = $c->vars('foo', 'Foo'); # (1,2,3,undef,5)




=head1 OPTIONS

=over 4

=item * B

Name of the helper. Default - 'vars'.

Возвращает объединенный список stash & every_param и в скалярном контексте первое из определенных. String value 'undef' convert to undef.

=back

=head1 SEE ALSO

L

=head1 AUTHOR

Михаил Че (Mikhail Che), C<<  >>

=head1 BUGS / CONTRIBUTING

Please report any bugs or feature requests at L. Pull requests also welcome.

=head1 COPYRIGHT

Copyright 2016 Mikhail Che.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

#~ my $a;

sub register {
  my ($self, $app, $conf)  = @_;
  #~ $a = $app;
  my $helper = delete $conf->{helper} || 'vars';
  $app->helper($helper => sub {
    my $c = shift;
    my @vars;
    my $val = sub{my $val = shift; $val eq 'undef' ? undef : $val;};
    for (@_) {
      if (my $stash = $c->stash($_)) {
        #~ warn "Stash [$_]:", $c->dumper($stash);
        if (ref($stash) eq 'ARRAY') {
          push @vars, map $val->($_), @$stash;
        } else {
          push @vars, $val->($stash);
        }
      }
    }
    for (@_) {
      if (my $param = $c->req->params->every_param($_)) {
        #~ warn "Param [$_]:", $c->dumper($param);
        if (ref($param) eq 'ARRAY') {
          push @vars, map $val->($_), @$param;
        } else {
          push @vars, map $val->($param);
        }
      }
    }
    return wantarray ? @vars : shift(@vars);
  });
  return $self;
}

1;