Help for this page

Select Code to Download


  1. or download this
       { state       => 'db_user',
    usr_id      => $self->client->param( 'usr_id' ),
    edit_usr_id => $self->client->param( 'edit_usr_id' ),
    mode        => $self->client->param( 'mode' )
    }
  2. or download this
    $ perl -MData::Dump=dump -e '
        sub f { (1, 2) }; 
        print dump({ a => f, b => 1 })
'
  3. or download this
    { 1 => undef, 2 => "b", a => 1 }