view release on metacpan or  search on metacpan

lib/SVG/TT/Graph.pm  view on Meta::CPAN

  # This method may be used again, so return to start of filehandle
  seek $template_fh, $start, 0;

  return $template;
}

sub _get_template_fh_sr {
    my ($self) = @_;

    my $ns_ref = \%main::;
    for my $node ( split m<::>, ref $self ) {
        $ns_ref = $ns_ref->{"${node}::"};
    }

    return *{$ns_ref->{'TEMPLATE_FH'}}{'SCALAR'};
}

=head2 burn()

  print $graph->burn();