<%ARGS> $Object => undef % if( $m->comp_exists( $path ) ) { % $m->comp( $path, Object => $Object ); % } else { <% $Object->_AsString %> % }
<%ONCE> require File::Spec; <%INIT> my $path = ref $Object; $path =~ s/:/-/g; $path = File::Spec->catfile( 'Object', $path );