package IIa66da94aed9b371a0ee16b72f938ea09::tag_subscr_descr_with_currency; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext) = @_; my ($obj, $curr, $rate) = ("#{$attr->{obj}}", $attr->{curr}, $attr->{rate}); $this->evaluate for $obj, $curr, $rate; my $jvmsub_scope = II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlIlIlIIIlIIlll($II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIIlIIIIIIlIIII{$II982446f8950cc3dc59e487adba22df54::IlIllIIIlllIlIll},182,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIIlIIIIIIlIIII{$II982446f8950cc3dc59e487adba22df54::IlIllIlIlIIlIlll}); $this->addCode("{"); $this->{Indent}++; $this->addCode("require $jvmsub_scope;"); $this->addCode("\$this->out($jvmsub_scope\->getSubscrDescr($obj->getPayplan, $curr));"); $this->{Indent}--; $this->addCode("}"); return; } 1; 