THIS IS A TEST INSTANCE. ALL YOUR CHANGES WILL BE LOST!!!!
...
id | name | value | setby | timestamp |
---|---|---|---|---|
3 | contacts | --- | DataStructure.pm:554 | 2009-05-26 12:35:36 |
To retrieve the data:
Code Block |
---|
my @returned_contacts = @{$self->data->get_variable('contacts')};for my $contact (@returned_contacts) { print "Name: $contact->{firstname} $contact->{lastname}\n"; for my $email_address (@{$contact->{email}}) { print "Email: $email_address\n"; } print "---\n";
}
|