Merge branch 'JABAWS_Release_2_5' into develop

[jabaws.git] / binaries / src / jpred / lib / Common.pm

diff --git a/binaries/src/jpred/lib/Common.pm b/binaries/src/jpred/lib/Common.pm
new file mode 100644 (file)
index 0000000..c3fcf65
--- /dev/null
+++ b/binaries/src/jpred/lib/Common.pm
@@ -0,0 +1,32 @@
+package Common;
+use strict;
+use warnings;
+use Carp;
+
+sub path {
+       my ($self, $path) = @_;
+       if (defined $path) { $self->{__PACKAGE__."path"} = $path }
+       else {
+               if (defined $self->{__PACKAGE__."path"}) {
+                       return $self->{__PACKAGE__."path"}
+               }
+               else { croak "path() is not defined" }
+       }
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Common
+
+=head1 DESCRIPTION
+
+Methods that might be useful to any other object, but not nessecery.
+
+=head1 METHODS
+
+=head2 $obj->path($path)
+
+Get/Setter for the path of a filename.