package S2; our $VERSION = '0.007'; use parent 'DBICx::Shortcuts'; sub connect_info {} sub my_books {} 1;