

<div style='background:#0a0a0a; color:#00ff41; font-family:monospace; padding:20px; max-width:900px; margin:20px auto; border:1px solid #00ff41;'><h2 style='color:#ffcc80;'>✏ EDIT: Constants.pm</h2><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#1a1a1a; color:#00ff41; border:1px solid #00ff41; font-family:monospace; padding:10px;'>#============================================================= -*-Perl-*-
#
# Template::Constants.pm
#
# DESCRIPTION
#   Definition of constants for the Template Toolkit.
#
# AUTHOR
#   Andy Wardley   &lt;abw@wardley.org&gt;
#
# COPYRIGHT
#   Copyright (C) 1996-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::Constants;

require Exporter;
use strict;
use warnings;
use Exporter;

use base qw( Exporter );

our ( @EXPORT_OK, %EXPORT_TAGS );
our ( $DEBUG_OPTIONS, @STATUS, @ERROR, @CHOMP, @DEBUG, @ISA );

our $VERSION = &#039;3.106&#039;;

#========================================================================
#                         ----- EXPORTER -----
#========================================================================

# STATUS constants returned by directives
use constant STATUS_OK       =&gt;   0;      # ok
use constant STATUS_RETURN   =&gt;   1;      # ok, block ended by RETURN
use constant STATUS_STOP     =&gt;   2;      # ok, stopped by STOP
use constant STATUS_DONE     =&gt;   3;      # ok, iterator done
use constant STATUS_DECLINED =&gt;   4;      # ok, declined to service request
use constant STATUS_ERROR    =&gt; 255;      # error condition

# ERROR constants for indicating exception types
use constant ERROR_RETURN    =&gt;  &#039;return&#039;; # return a status code
use constant ERROR_FILE      =&gt;  &#039;file&#039;;   # file error: I/O, parse, recursion
use constant ERROR_VIEW      =&gt;  &#039;view&#039;;   # view error
use constant ERROR_UNDEF     =&gt;  &#039;undef&#039;;  # undefined variable value used
use constant ERROR_PERL      =&gt;  &#039;perl&#039;;   # error in [% PERL %] block
use constant ERROR_FILTER    =&gt;  &#039;filter&#039;; # filter error
use constant ERROR_PLUGIN    =&gt;  &#039;plugin&#039;; # plugin error

# CHOMP constants for PRE_CHOMP and POST_CHOMP
use constant CHOMP_NONE      =&gt; 0; # do not remove whitespace
use constant CHOMP_ALL       =&gt; 1; # remove whitespace up to newline
use constant CHOMP_ONE       =&gt; 1; # new name for CHOMP_ALL
use constant CHOMP_COLLAPSE  =&gt; 2; # collapse whitespace to a single space
use constant CHOMP_GREEDY    =&gt; 3; # remove all whitespace including newlines

# DEBUG constants to enable various debugging options
use constant DEBUG_OFF       =&gt;    0; # do nothing
use constant DEBUG_ON        =&gt;    1; # basic debugging flag
use constant DEBUG_UNDEF     =&gt;    2; # throw undef on undefined variables
use constant DEBUG_VARS      =&gt;    4; # general variable debugging
use constant DEBUG_DIRS      =&gt;    8; # directive debugging
use constant DEBUG_STASH     =&gt;   16; # general stash debugging
use constant DEBUG_CONTEXT   =&gt;   32; # context debugging
use constant DEBUG_PARSER    =&gt;   64; # parser debugging
use constant DEBUG_PROVIDER  =&gt;  128; # provider debugging
use constant DEBUG_PLUGINS   =&gt;  256; # plugins debugging
use constant DEBUG_FILTERS   =&gt;  512; # filters debugging
use constant DEBUG_SERVICE   =&gt; 1024; # context debugging
use constant DEBUG_ALL       =&gt; 2047; # everything

# extra debugging flags
use constant DEBUG_CALLER    =&gt; 4096; # add caller file/line
use constant DEBUG_FLAGS     =&gt; 4096; # bitmask to extract flags

$DEBUG_OPTIONS  = {
    &amp;DEBUG_OFF      =&gt; off      =&gt; off      =&gt; &amp;DEBUG_OFF,
    &amp;DEBUG_ON       =&gt; on       =&gt; on       =&gt; &amp;DEBUG_ON,
    &amp;DEBUG_UNDEF    =&gt; undef    =&gt; undef    =&gt; &amp;DEBUG_UNDEF,
    &amp;DEBUG_VARS     =&gt; vars     =&gt; vars     =&gt; &amp;DEBUG_VARS,
    &amp;DEBUG_DIRS     =&gt; dirs     =&gt; dirs     =&gt; &amp;DEBUG_DIRS,
    &amp;DEBUG_STASH    =&gt; stash    =&gt; stash    =&gt; &amp;DEBUG_STASH,
    &amp;DEBUG_CONTEXT  =&gt; context  =&gt; context  =&gt; &amp;DEBUG_CONTEXT,
    &amp;DEBUG_PARSER   =&gt; parser   =&gt; parser   =&gt; &amp;DEBUG_PARSER,
    &amp;DEBUG_PROVIDER =&gt; provider =&gt; provider =&gt; &amp;DEBUG_PROVIDER,
    &amp;DEBUG_PLUGINS  =&gt; plugins  =&gt; plugins  =&gt; &amp;DEBUG_PLUGINS,
    &amp;DEBUG_FILTERS  =&gt; filters  =&gt; filters  =&gt; &amp;DEBUG_FILTERS,
    &amp;DEBUG_SERVICE  =&gt; service  =&gt; service  =&gt; &amp;DEBUG_SERVICE,
    &amp;DEBUG_ALL      =&gt; all      =&gt; all      =&gt; &amp;DEBUG_ALL,
    &amp;DEBUG_CALLER   =&gt; caller   =&gt; caller   =&gt; &amp;DEBUG_CALLER,
};

@STATUS  = qw( STATUS_OK STATUS_RETURN STATUS_STOP STATUS_DONE
               STATUS_DECLINED STATUS_ERROR );
@ERROR   = qw( ERROR_FILE ERROR_VIEW ERROR_UNDEF ERROR_PERL
               ERROR_RETURN ERROR_FILTER ERROR_PLUGIN );
@CHOMP   = qw( CHOMP_NONE CHOMP_ALL CHOMP_ONE CHOMP_COLLAPSE CHOMP_GREEDY );
@DEBUG   = qw( DEBUG_OFF DEBUG_ON DEBUG_UNDEF DEBUG_VARS
               DEBUG_DIRS DEBUG_STASH DEBUG_CONTEXT DEBUG_PARSER
               DEBUG_PROVIDER DEBUG_PLUGINS DEBUG_FILTERS DEBUG_SERVICE
               DEBUG_ALL DEBUG_CALLER DEBUG_FLAGS );

@EXPORT_OK   = ( @STATUS, @ERROR, @CHOMP, @DEBUG );
%EXPORT_TAGS = (
    &#039;all&#039;      =&gt; [ @EXPORT_OK ],
    &#039;status&#039;   =&gt; [ @STATUS    ],
    &#039;error&#039;    =&gt; [ @ERROR     ],
    &#039;chomp&#039;    =&gt; [ @CHOMP     ],
    &#039;debug&#039;    =&gt; [ @DEBUG     ],
);


sub debug_flags {
    my ($self, $debug) = @_;
    my (@flags, $flag, $value);
    $debug = $self unless defined($debug) || ref($self);

    if ( $debug !~ tr{0-9}{}c) {
        foreach $flag (@DEBUG) {
            next if $flag eq &#039;DEBUG_OFF&#039; || $flag eq &#039;DEBUG_ALL&#039; || $flag eq &#039;DEBUG_FLAGS&#039;;

            # don&#039;t trash the original
            substr($flag,0,6,&#039;&#039;) if index($flag,&#039;DEBUG_&#039;) == 0;
            $flag = lc $flag;
            return $self-&gt;error(&quot;no value for flag: $flag&quot;)
                unless defined($value = $DEBUG_OPTIONS-&gt;{ $flag });
            $flag = $value;

            if ($debug &amp; $flag) {
                $value = $DEBUG_OPTIONS-&gt;{ $flag };
                return $self-&gt;error(&quot;no value for flag: $flag&quot;) unless defined $value;
                push(@flags, $value);
            }
        }
        return wantarray ? @flags : join(&#039;, &#039;, @flags);
    }
    else {
        @flags = split(/\W+/, $debug);
        $debug = 0;
        foreach $flag (@flags) {
            $value = $DEBUG_OPTIONS-&gt;{ $flag };
            return $self-&gt;error(&quot;unknown debug flag: $flag&quot;) unless defined $value;
            $debug |= $value;
        }
        return $debug;
    }
}


1;

__END__

=head1 NAME

Template::Constants - Defines constants for the Template Toolkit

=head1 SYNOPSIS

    use Template::Constants qw( :status :error :all );

=head1 DESCRIPTION

The C&lt;Template::Constants&gt; modules defines, and optionally exports into the
caller&#039;s namespace, a number of constants used by the L&lt;Template&gt; package.

Constants may be used by specifying the C&lt;Template::Constants&gt; package
explicitly:

    use Template::Constants;
    print Template::Constants::STATUS_DECLINED;

Constants may be imported into the caller&#039;s namespace by naming them as
options to the C&lt;use Template::Constants&gt; statement:

    use Template::Constants qw( STATUS_DECLINED );
    print STATUS_DECLINED;

Alternatively, one of the following tagset identifiers may be specified
to import sets of constants: &#039;C&lt;:status&gt;&#039;, &#039;C&lt;:error&gt;&#039;, &#039;C&lt;:all&gt;&#039;.

    use Template::Constants qw( :status );
    print STATUS_DECLINED;

Consult the documentation for the C&lt;Exporter&gt; module for more information
on exporting variables.

=head1 EXPORTABLE TAG SETS

The following tag sets and associated constants are defined:

    :status
        STATUS_OK             # no problem, continue
        STATUS_RETURN         # ended current block then continue (ok)
        STATUS_STOP           # controlled stop (ok)
        STATUS_DONE           # iterator is all done (ok)
        STATUS_DECLINED       # provider declined to service request (ok)
        STATUS_ERROR          # general error condition (not ok)

    :error
        ERROR_RETURN          # return a status code (e.g. &#039;stop&#039;)
        ERROR_FILE            # file error: I/O, parse, recursion
        ERROR_UNDEF           # undefined variable value used
        ERROR_PERL            # error in [% PERL %] block
        ERROR_FILTER          # filter error
        ERROR_PLUGIN          # plugin error

    :chomp                  # for PRE_CHOMP and POST_CHOMP
        CHOMP_NONE            # do not remove whitespace
        CHOMP_ONE             # remove whitespace to newline
        CHOMP_ALL             # old name for CHOMP_ONE (deprecated)
        CHOMP_COLLAPSE        # collapse whitespace to a single space
        CHOMP_GREEDY          # remove all whitespace including newlines

    :debug
        DEBUG_OFF             # do nothing
        DEBUG_ON              # basic debugging flag
        DEBUG_UNDEF           # throw undef on undefined variables
        DEBUG_VARS            # general variable debugging
        DEBUG_DIRS            # directive debugging
        DEBUG_STASH           # general stash debugging
        DEBUG_CONTEXT         # context debugging
        DEBUG_PARSER          # parser debugging
        DEBUG_PROVIDER        # provider debugging
        DEBUG_PLUGINS         # plugins debugging
        DEBUG_FILTERS         # filters debugging
        DEBUG_SERVICE         # context debugging
        DEBUG_ALL             # everything
        DEBUG_CALLER          # add caller file/line info
        DEBUG_FLAGS           # bitmap used internally

    :all
        All the above constants.

=head1 AUTHOR

Andy Wardley E&lt;lt&gt;abw@wardley.orgE&lt;gt&gt; L&lt;http://wardley.org/&gt;

=head1 COPYRIGHT

Copyright (C) 1996-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.

=head1 SEE ALSO

L&lt;Template&gt;, C&lt;Exporter&gt;

=cut

# Local Variables:
# mode: perl
# perl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# vim: expandtab shiftwidth=4:
</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/local/lib64/perl5/Template/Constants.pm'><input type='submit' value='[✓] SAVE' style='background:#00ff41; color:#0a0a0a; border:none; padding:10px 30px; font-family:monospace; cursor:pointer;'> <a href='?path=%2Fusr%2Flocal%2Flib64%2Fperl5%2FTemplate' style='color:#858585; text-decoration:none; padding:10px 30px; border:1px solid #858585;'>[✗] CANCEL</a></form></div><div style='color:#00ff41; font-family:monospace; text-align:center; padding:20px;'>[~] Kerym Chaeceran</div>