The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%ARGS>
$Child
$ARGSRef
</%ARGS>


<%INIT>
return unless $Child;
$$ARGSRef{'Id'} = $Child->id;
my ($d) = $Child->Unlock();
$$ARGSRef{'Duration'} = $d unless $$ARGSRef{'Duration'};
</%INIT>