}
eval "use Frontier::Client;";
+ die $@ if $@;
eval 'sub Frontier::RPC2::String::repr {
- my $self = shift
+ my $self = shift;
my $value = $$self;
$value =~ s/([&<>\"])/$Frontier::RPC2::char_entities{$1}/ge;
$value;
}';
+ die $@ if $@;
my $conn = Frontier::Client->new( url => $url );
my $key_result = $conn->call( 'authenticate', $username, $password, $groupID);