Index: Business-ISBN-Data-20140910.002/lib/Business/ISBN/Data.pm =================================================================== --- Business-ISBN-Data-20140910.002.orig/lib/Business/ISBN/Data.pm +++ Business-ISBN-Data-20140910.002/lib/Business/ISBN/Data.pm @@ -375,7 +375,8 @@ $Business::ISBN::MAX_COUNTRY_CODE_LENGTH ( sort { $a <=> $b } grep { ! /\A_/ } keys %Business::ISBN::country_data )[-1] ); -package Business::ISBN; +package + Business::ISBN; sub isbn_group_code_string_from_number { return if $_[0] =~ /\A_/;