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>