Help for this page

Select Code to Download


  1. or download this
    use Hash::Util qw( lock_keys );

my %doc = ( filename => '', fileID => undef, tags => [] );
lock_keys(%doc);
  2. or download this
    %> reply
0> use MooX::Struct -rw, Document  => [ qw( $fileID $filename @tags ) 
+];
...
       }, 'MooX::Struct::__ANON__::0001' )

5>