[libinline-java-perl] 396/398: use "our"

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:43:29 UTC 2015


This is an automated email from the git hooks/post-receive script.

js pushed a commit to tag 0.55
in repository libinline-java-perl.

commit a360cbbd2c3b1745617870b7cc9a749dc34fc263
Author: Ed J <mohawk2 at users.noreply.github.com>
Date:   Fri Nov 14 14:54:12 2014 +0000

    use "our"
---
 Java.pm | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

diff --git a/Java.pm b/Java.pm
index 1106416..a492dc0 100644
--- a/Java.pm
+++ b/Java.pm
@@ -1,25 +1,19 @@
-package Inline::Java ;
- at Inline::Java::ISA = qw(Inline Exporter) ;
-
-# Export the cast function if wanted
- at EXPORT_OK = qw(cast coerce study_classes caught jar j2sdk) ;
-
+package Inline::Java;
 
 use strict ;
 require 5.006 ;
 
-$Inline::Java::VERSION = '0.540' ;
+use base qw(Inline Exporter) ;
 
+# Export the cast function if wanted
+our @EXPORT_OK = qw(cast coerce study_classes caught jar j2sdk) ;
+our $VERSION = '0.55' ;
 
 # DEBUG is set via the DEBUG config
-if (! defined($Inline::Java::DEBUG)){
-	$Inline::Java::DEBUG = 0 ;
-}
+our $DEBUG = 0 unless defined $DEBUG;
 
-# Set DEBUG stream
-*DEBUG_STREAM = *STDERR ;
+*DEBUG_STREAM = *STDERR ; # Set DEBUG stream
 
-require Inline ;
 use Carp ;
 use Config ;
 use File::Copy ;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git



More information about the Pkg-perl-cvs-commits mailing list