Gecko [ apartmentfairs.com ]

Name	Size	Permission
Assert.pm	3.42 KB	-r--r--r--
Datafile.pm	4.54 KB	-r--r--r--
Date.pm	11.2 KB	-r--r--r--
Directory.pm	10.9 KB	-r--r--r--
Dumper.pm	3.88 KB	-r--r--r--
File.pm	10.92 KB	-r--r--r--
Filter.pm	9.61 KB	-r--r--r--
Format.pm	1.75 KB	-r--r--r--
HTML.pm	5.89 KB	-r--r--r--
Image.pm	11.32 KB	-r--r--r--
Iterator.pm	1.95 KB	-r--r--r--
List.pm	2.68 KB	-r--r--r--
Math.pm	3.99 KB	-r--r--r--
Pod.pm	1.61 KB	-r--r--r--
Procedural.pm	3.59 KB	-r--r--r--
Scalar.pm	3.75 KB	-r--r--r--
String.pm	17.76 KB	-r--r--r--
Table.pm	12.38 KB	-r--r--r--
URL.pm	5.64 KB	-r--r--r--
View.pm	2.4 KB	-r--r--r--
Wrap.pm	3.12 KB	-r--r--r--

Code Editor : List.pm

#============================================================= -*-Perl-*-
#
# Template::Plugin::List
#
# DESCRIPTION
#   Template Toolkit plugin to implement an OO List object.
#   (work in progress)
#
# AUTHOR
#   Andy Wardley   <abw@wardley.org>
#
# 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|""| => "text",
    fallback => 1;

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

local $" = ', ';

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

__END__

${this.title}

Code Editor : List.pm