package IIa66da94aed9b371a0ee16b72f938ea09::tag_mkfile; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext)= @_; my $file = $attr->{file} or $this->harakiri('file?'); my $tmpl = $attr->{tmpl} or $this->harakiri('tmpl?'); $this->evaluate for $file, $tmpl; $this->addCode(qq/(ref \$this)->mkfile("$file", "$tmpl", \$this->{C});/); return; } 1; 