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

Update: Wow, stevieb and I posted within 2 seconds of another :-)

The usual pattern would be:

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

Makes subclassing easier (and avoids this typo ;-) )