<h2>Editing File: /usr/local/lib64/perl5/Template/Plugin/List.pm</h2><form method='post'><textarea name='content' class='file-edit'>#============================================================= -*-Perl-*-
#
# Template::Plugin::List
#
# DESCRIPTION
#   Template Toolkit plugin to implement an OO List object.
#   (work in progress)
#
# AUTHOR
#   Andy Wardley   &lt;abw@wardley.org&gt;
#
# COPYRIGHT
#   Copyright (C) 2001-2022 Andy Wardley.  All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
#============================================================================

package Template::Plugin::List;

use strict;
use warnings;
use base 'Template::Plugin';
use Template::Exception;
use overload
    q|&quot;&quot;| =&gt; &quot;text&quot;,
    fallback =&gt; 1;

our $VERSION = '3.106';
our $ERROR   = '';


local $&quot; = ', ';

#------------------------------------------------------------------------

sub new {
    my ($class, @args) = @_;
    my $context = ref $class ? undef : CORE::shift(@args);
    my $config = @args &amp;&amp; ref $args[-1] eq 'HASH' ? CORE::pop(@args) : { };

    $class = ref($class) || $class;

    my $list = defined $config-&gt;{ list }
        ? $config-&gt;{ list }
        : (scalar @args == 1 &amp;&amp; ref $args[0] eq 'ARRAY'
            ? CORE::shift(@args)
            : [ @args ]
        );

    my $joint =
        defined $config-&gt;{ joint }
        ? $config-&gt;{ joint }
        : $config-&gt;{ join }
            ? $config-&gt;{ join }
            : ', ';

    bless {
        list  =&gt; $list,
        joint =&gt; $joint,
        _CONTEXT =&gt; $context,
    }, $class;
}


sub list {
    return $_[0]-&gt;{ list };
}


sub item {
    $_[0]-&gt;{ list }-&gt;[ $_[1] || 0 ];
}


sub hash {                              ### not sure about this one ###
    my $self = shift;
    my $n = 0;
    return { map { ($n++, $_) } @{ $self-&gt;{ list } } };
}


sub text {
    my $self = CORE::shift;
    return CORE::join($self-&gt;{ joint }, @{ $self-&gt;{ list } });
}


sub copy {
    my $self = CORE::shift;
    $self-&gt;new([ @{ $self-&gt;{ list } } ]);
}


sub throw {
    my $self = CORE::shift;
    die (Template::Exception-&gt;new('List', CORE::join('', @_)));
}


#------------------------------------------------------------------------

sub push {
    my $self = CORE::shift;
    CORE::push(@{ $self-&gt;{ list } }, @_);
    return $self;
}


sub unshift {
    my $self = CORE::shift;
    CORE::unshift(@{ $self-&gt;{ list } }, @_);
    return $self;
}


sub pop {
    my $self = CORE::shift;
    CORE::pop(@{ $self-&gt;{ list } });
    return $self;
}


sub shift {
    my $self = CORE::shift;
    CORE::shift(@{ $self-&gt;{ list } });
    return $self;
}


sub max {
    local $^W = 0;
    my $list = $_[0]-&gt;{ list };
    return $#$list;
}


sub size {
    local $^W = 0;
    my $list = $_[0]-&gt;{ list };
    return $#$list + 1;
}


1;

__END__


</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Flib64%2Fperl5%2FTemplate%2FPlugin'>Back to Directory</a>