G::DB
SDB
G::Seq::Eliminate - Perl extension for blah blah blah
|
Globals (from use vars definitions) |
@EXPORT |
$VERSION |
@EXPORT_OK |
use G::Seq::Primitive; blah blah blah
|
Stub documentation for G::Seq::Eliminate was created by h2xs. It looks like the author of the extension was negligent enough to leave the stub unedited.
Blah blah blah.
|
BEGIN | | Code |
DESTROY | No description | Code |
_sdb_path | No description | Code |
new | No description | Code |
sdb_load | No description | Code |
sdb_save | No description | Code |
Methods description
Methods code
BEGIN
{ eval "use Storable;";
if ($@){ warn "$@"
}
sub DESTROY
{ my $self = shift;
}
sub _sdb_path
{ my $path = '/usr/local/g-language/.glang/';
mkdir($path, 0777);
return $path;
}
sub new
{ my $pkg = shift;
my $filename = shift;
my $option = shift;
my $this;
return $this;
}
sub sdb_load
{ my $name = shift;
my $path = _sdb_path();
return retrieve($path . $name);
}
sub sdb_save
{ my $val = shift;
my $name = shift || 'tmp';
my $path = _sdb_path();
store($val, $path . $name);
return 1;
}
General documentation