ok $INC{'DB.pm'}, 'DB module loaded'; ok $INC{'Moose.pm'}, 'Moose module loaded'; ok $INC{'StevesPerlTools.pm'}, 'StevesPerlTools module loaded'; ok $INC{'Modern/Perl.pm'}, 'Modern::Perl module loaded'; ok $INC{'LaborData/Data/Dir.pm'}, 'LaborData::Data::Dir module loaded'; ok $INC{'StevesPerlTools.pm'}, 'StevesPerlTools module loaded'; #ok $INC{'Web/Scraper.pm'}, 'Web::Scraper module loaded'; my $i; lives_ok { $i = LaborData::Data::Importer->new } 'does not throw error with no argument passed'; # check that needed attributes are created and are proper type is 1, $i->meta->has_attribute('raw_data'), 'has an \'raw_data\' attribute'; is 'LaborData::Data::Dir', $i->meta->get_attribute('raw_data')->type_constraint, 'raw_data attribute is a \'LaborData::Data::Dir\''; is (attribute_is_ro($i, 'raw_data'), 1, 'raw_data is read only'); is (!! $i->can('create_db'), 1, 'can create database'); is (!! $i->can('destroy_db'),1, 'can destroy database'); is 1, !! $i->can('_get_columns'), 'can get columns'; # etc;