GitHub - bokutin/Template-Plugin-ArrayRef

Branches Tags

Name		Name	Last commit message	Last commit date
Latest commit History 3 Commits
inc/Module		inc/Module
lib/Template/Plugin		lib/Template/Plugin
t		t
Changes		Changes
MANIFEST		MANIFEST
Makefile.PL		Makefile.PL
README		README
ignore.txt		ignore.txt

Repository files navigation

[% USE ArrayRef %]
[% USE Dumper %]

[% PERL %]
    $stash->set( get_zero  => sub { ()     } );
    $stash->set( get_one   => sub { (1)    } );
    $stash->set( get_two   => sub { (1, 2) } );
[% END %]

[% SET zero = get_zero %]
[% SET one  = get_one %]
[% SET two  = get_two %]
[% Dumper.dump(zero) %] # $VAR1 = '';
[% Dumper.dump(one) %]  # $VAR1 = 1;
[% Dumper.dump(two) %]  # $VAR1 = [ 1, 2 ];

[% SET zero = get_zero.list %]
[% SET one  = get_one.list %]
[% SET two  = get_two.list %]
[% Dumper.dump(zero) %] # $VAR1 = '';
[% Dumper.dump(one) %]  # $VAR1 = [ 1 ];
[% Dumper.dump(two) %]  # $VAR1 = [ 1, 2 ];

[% SET zero = ArrayRef.get_zero %]
[% SET one  = ArrayRef.get_one %]
[% SET two  = ArrayRef.get_two %]
[% Dumper.dump(zero) %] # $VAR1 = [];
[% Dumper.dump(one) %]  # $VAR1 = [ 1 ];
[% Dumper.dump(two) %]  # $VAR1 = [ 1, 2 ];

[% USE arrayref = ArrayRef %]
[% SET zero = arrayref.get_zero %]
[% SET one  = arrayref.get_one %]
[% SET two  = arrayref.get_two %]
[% Dumper.dump(zero) %] # $VAR1 = [];
[% Dumper.dump(one) %]  # $VAR1 = [ 1 ];
[% Dumper.dump(two) %]  # $VAR1 = [ 1, 2 ];

# in DBIC cases...
[% SET items = row.arrayref.items %]
[% SET items = row.items_rs.arrayref.all %]