package test::BookStore::Test1; use base qw(test::BookStore::Object); use strict; 1;