Patterns in Perl 7

Singleton Examples

my $logger = App::Logger->new();
package App::Logger;

use base 'Class::Singleton';

package main;

my $logger = App::Logger->instance();
Copyright © 2005-2006 David Rolsky