Sweden-Number/tools/winapi/type.pm

15 lines
172 B
Perl
Raw Normal View History

package type;
use strict;
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {};
bless ($self, $class);
return $self;
}
1;