package _Initialize; use strict; sub new { my ($class, %args) = @_; my $self = bless {}, ref($class)||$class; $self->_init(%args); return $self; } sub DESTROY {} 1;