burak / CPAN-Text-Template-Simple / changeset / e5fc2996193a

@@ -40,12 +40,10 @@ sub _examine {
+}
 sub _examine_glob {
    my $self = shift;
    my $TMP  = shift;
    my $ref  = ref $TMP;
    fatal( 'tts.base.examine.notglob' => $ref ) if $ref ne 'GLOB';
    fatal( 'tts.base.examine.notfh'           ) if not  fileno $TMP;
    return $self->io->slurp( $TMP );
    my($self, $thing) = @_;
    fatal( 'tts.base.examine.notglob' => ref $thing ) if ref $thing ne 'GLOB';
    fatal( 'tts.base.examine.notfh' ) if ! fileno $thing;
    return $self->io->slurp( $thing );
+}
 sub _examine_type {
@@ -59,7 +57,7 @@ sub _examine_type {
    if ( isaref( $TMP ) ) {
       my $ftype  = shift @{ $TMP } || fatal('tts.base.examine._examine_type.ftype');
       my $fthing = shift @{ $TMP } || fatal('tts.base.examine._examine_type.fthing');
-      fatal('tts.base.examine._examine_type.extra') if @{ $TMP } > 0;
+      fatal('tts.base.examine._examine_type.extra') if @{ $TMP };
       return uc $ftype, $fthing;
+   }

@@ -10,6 +10,7 @@ use Text::Template::Simple::Constants qw
 use constant MAPKEY_NUM => 5;
 my %INTERNAL = __PACKAGE__->_set_internal_templates;
 my %BLOCK; # block registry
 sub _needs_object {
    my $self = shift;

@@ -274,9 +274,8 @@ sub hit {
    my $cache_id = shift;
    my $chkmt    = shift || 0;
    return  $self->[CACHE_PARENT][CACHE_DIR]
          ? $self->_hit_disk(   $cache_id, $chkmt )
-         : $self->_hit_memory( $cache_id, $chkmt );
+   my $method = $self->[CACHE_PARENT][CACHE_DIR] ? '_hit_disk' : '_hit_memory';
    return $self->$method( $cache_id, $chkmt );
+}
 sub _hit_memory {

@@ -150,7 +150,7 @@ use constant DIGEST_MODS => qw(
    Digest::Perl::MD5
 );
-use constant RE_PIPE_SPLIT   => qr/ \| (?:\s+)? (PARAM|FILTER|SHARE) : /xms;
+use constant RE_PIPE_SPLIT   => qr/ \| (?:\s+)? (NAME|PARAM|FILTER|SHARE) : /xms;
 use constant RE_FILTER_SPLIT => qr/ \, (?:\s+)? /xms;
 use constant RE_INVALID_CID  => qr{[^A-Za-z_0-9]}xms;