view release on metacpan or  search on metacpan

lib/CXC/PDL/Bin1D.pd  view on Meta::CPAN

            delimiters => [qw( <% %>  )],
            source     => <<'EOS',
             *fill_in             = \&<% $PACKAGE %>::fill_in;
             *fill_in_string      = \&<% $PACKAGE %>::fill_in_string;
EOS
        )->fill_in( hash => { PACKAGE => __PACKAGE__ } );

    }

    # fill in templates using Text::Template::LocalVars.  This routine
    # is also imported into all of the template fragments.
    sub fill_in {

        my ( $type, $src ) = ( shift, shift );

        $src = catfile( ::LIBDIR, $src )
          if lc $type eq 'file' && $src !~ m{^[./]}s;

        my $tpl = Text::Template::LocalVars->new(
            type       => $type,
            source     => $src,