--- libnet-ipp-perl-0.1.orig/lib/Net/IPP/IPP.pm
+++ libnet-ipp-perl-0.1/lib/Net/IPP/IPP.pm
@@ -11,8 +11,7 @@
 use strict;
 use warnings;
 
-require Exporter;
-our @ISA = ("Exporter");
+use Exporter 'import';
 
 our @EXPORT_OK;
 our %EXPORT_TAGS;
@@ -289,9 +288,10 @@
 # export all subroutines, except "registerConstants"
 #
 foreach my $keyname (keys %{Net::IPP::IPP::}) {
+  next if $keyname eq 'BEGIN';
   if ($keyname ne "registerConstants") {
     local *key = ${Net::IPP::IPP::}{$keyname};
-    push (@EXPORT_OK, $keyname) if *key{CODE};
+    push (@EXPORT_OK, $keyname);
   }
 }