my $type = ref($class) || $class;
if (ref($obj) eq "HASH") {
- # Just bless the object
- return bless $obj, $type;
+ # Just bless the object
+ return bless $obj, $type;
}
return bless {}, $type;
return $self->{name};
}
+sub id {
+ my $self = shift;
+ return $self->{id};
+}
+
+sub implementation {
+ my $self = shift;
+ return $self->{implementation};
+}
+
sub policy {
my $self = shift;
return $self->{policy};
}
+# 'policy' => {
+# 'checkout' => 'true',
+# 'retries' => 5,
+# 'checkin' => 'true',
+# 'timeout' => 25,
+# 'status_update' => 'false',
+# 'offline' => 'false',
+# 'renewal' => 'true'
+# },
+
sub parms {
my $self = shift;
return $self->{parms};