package Storage::DbBundle; use strict; use Storage::Bundle; use Db::Connection; use vars qw|@ISA|; @ISA = qw|Storage::Bundle|; sub _init { my ($self, %params) = @_; $self->SUPER::_init(%params); $self->{params} = \%params; return 1; } sub commandLine { my ($self) = @_; return Db::Connection::getDumpCmdLine(%{$self->{params}}); } 1;