package MyObject;
use Class::MethodMaker
   new_hash_init => 'new',
   get_set       => [qw(arg1 arg2)],
;

package main;
use strict;
use warnings;
use Data::Dumper;
use XML::Simple qw(2.08);

my $xml = XMLin(\*DATA);
my %arg = map {
   $_ => $xml->{function}{parameter}{$_}{content}
} keys %{$xml->{function}{parameter}};

my $object = MyObject->new(%arg);
print $object->arg1(), "\n";
print $object->arg2(), "\n";

__DATA__
<myobject>
 <function name="init">
  <parameter name="arg1">value1</parameter>
  <parameter name="arg2">value2</parameter>
 </function>
</myobject>
[download]

Additionally, this is Perl. I am sure there is some way to dynamically create these classes. You could read the XML first, determine what class to create and what parameters to pass along, and then instantiate the object with the desired argument values.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)