- or download this
#!/usr/bin/perl -w
...
my $foo = Package::System::Foo->new();
$foo->start();
print Dumper $foo;
- or download this
package Package::System::Foo;
...
.........
}
1;
- or download this
package Package::Contol::Base::Daemon::Server;
...
has 'DAEMON' => (is=>rw,isa=>'Object');
1;