package IIa66da94aed9b371a0ee16b72f938ea09::tag_rmfile; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext)= @_; my $file = $attr->{file} or $this->harakiri('file?'); $this->evaluate for $file; my $classSer = IIb39071a48a82a07eeb9256f406abebc5::lllllIIIlIIlIlII($IIb39071a48a82a07eeb9256f406abebc5::lllIlIIlIIIlIlll{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIllIIlIllIlIIl},1004,$IIb39071a48a82a07eeb9256f406abebc5::lllIlIIlIIIlIlll{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIlllllIllIIlIl}); $this->addCode("require $classSer;"); $this->addCode("$classSer\->drop(qq/$file/);"); return; } 1; 