bless $self,"NCS::PupptDB::Data";
                     ^^ missing "e"

##</code><code>##

sub new {
	my $class = shift;
	my $self = {};
	bless $self, $class;
	return $self;
}