THIS IS A TEST INSTANCE. ALL YOUR CHANGES WILL BE LOST!!!!
...
Code Block |
---|
my %kms_configuration = ( '3' => '192.168.22.33:1688', '1' => 'kms-server.ncsu.edu', ); my my $serialized_data = YAML::Dump(\%kms_configuration); $self $self->data->set_variable('kms-configuration', $serialized_data); |
...
Code Block |
---|
my @contacts = ( { 'firstname' => 'Joe', 'lastname' => 'Doe', 'email' => ['joe@somewhere.org', 'jdoe22@unity.ncsu.edu'], 'employee_id' => 3342 }, { 'firstname' => 'Jane', 'lastname' => 'Doe', 'email' => ['jane@somewhere.org'], 'employee_id' => 7865 } ); my my $serialized_data = YAML::Dump(\@contacts); $self $self->data->set_variable('contacts', $serialized_data); |
...