r75527 - in /trunk/libjavascript-packer-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/JavaScript/ t/
jotamjr-guest at users.alioth.debian.org
jotamjr-guest at users.alioth.debian.org
Sun Jun 12 21:32:03 UTC 2011
Author: jotamjr-guest
Date: Sun Jun 12 21:31:56 2011
New Revision: 75527
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=75527
Log:
New upstream release
Added:
trunk/libjavascript-packer-perl/META.yml
- copied unchanged from r75526, branches/upstream/libjavascript-packer-perl/current/META.yml
trunk/libjavascript-packer-perl/t/01-interface.t
- copied unchanged from r75526, branches/upstream/libjavascript-packer-perl/current/t/01-interface.t
trunk/libjavascript-packer-perl/t/02-io.t
- copied unchanged from r75526, branches/upstream/libjavascript-packer-perl/current/t/02-io.t
Removed:
trunk/libjavascript-packer-perl/t/01-io.t
Modified:
trunk/libjavascript-packer-perl/Changes
trunk/libjavascript-packer-perl/MANIFEST
trunk/libjavascript-packer-perl/Makefile.PL
trunk/libjavascript-packer-perl/README
trunk/libjavascript-packer-perl/debian/changelog
trunk/libjavascript-packer-perl/inc/Module/Install.pm
trunk/libjavascript-packer-perl/inc/Module/Install/AutoInstall.pm
trunk/libjavascript-packer-perl/inc/Module/Install/Base.pm
trunk/libjavascript-packer-perl/inc/Module/Install/Can.pm
trunk/libjavascript-packer-perl/inc/Module/Install/Fetch.pm
trunk/libjavascript-packer-perl/inc/Module/Install/Include.pm
trunk/libjavascript-packer-perl/inc/Module/Install/Makefile.pm
trunk/libjavascript-packer-perl/inc/Module/Install/Metadata.pm
trunk/libjavascript-packer-perl/inc/Module/Install/Win32.pm
trunk/libjavascript-packer-perl/inc/Module/Install/WriteAll.pm
trunk/libjavascript-packer-perl/lib/JavaScript/Packer.pm
Modified: trunk/libjavascript-packer-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/Changes?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/Changes (original)
+++ trunk/libjavascript-packer-perl/Changes Sun Jun 12 21:31:56 2011
@@ -1,4 +1,21 @@
Revision history for JavaScript-Packer
+
+1.004 2011-06-07
+ - Raised version number.
+
+1.003_003 2011-05-19
+ - Some minor changes.
+ - Added tests.
+
+1.003_002 2011-05-15
+ - Made comment option work in conjunction with all compression options. Suggested by Marc S. Brooks.
+
+1.003_001 2011-04-13
+ - Compression opts "minify" and "base62" are no longer supported.
+ - Added accessors.
+ - Added tests.
+ - Minor Bugfixes.
+ - Cleanup.
1.002001 2011-03-01
- Changed requirements to Regexp::RegGrp 1.000001 due to "undefined submatches bug" in Regexp::RegGrp.
Modified: trunk/libjavascript-packer-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/MANIFEST?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/MANIFEST (original)
+++ trunk/libjavascript-packer-perl/MANIFEST Sun Jun 12 21:31:56 2011
@@ -15,9 +15,11 @@
lib/JavaScript/Packer.pm
Makefile.PL
MANIFEST
+META.yml
README
t/00-load.t
-t/01-io.t
+t/01-interface.t
+t/02-io.t
t/pod.t
t/scripts/s1-expected.js
t/scripts/s1.js
Modified: trunk/libjavascript-packer-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/Makefile.PL?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/Makefile.PL (original)
+++ trunk/libjavascript-packer-perl/Makefile.PL Sun Jun 12 21:31:56 2011
@@ -5,9 +5,10 @@
all_from 'lib/JavaScript/Packer.pm';
test_requires 'Test::More' => 0;
-requires 'Regexp::RegGrp' => "1.000001";
+requires 'Regexp::RegGrp' => "1.001_001";
repository 'http://github.com/nevesenin/javascript-packer-perl';
+bugtracker 'http://github.com/nevesenin/javascript-packer-perl/issues';
clean_files 't/scripts/s*-got.js';
Modified: trunk/libjavascript-packer-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/README?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/README (original)
+++ trunk/libjavascript-packer-perl/README Sun Jun 12 21:31:56 2011
@@ -17,6 +17,9 @@
perldoc JavaScript::Packer
You can also look for information at:
+
+ github
+ http://github.com/nevesenin/javascript-packer-perl
RT, CPAN's request tracker
http://rt.cpan.org/NoAuth/Bugs.html?Dist=JavaScript-Packer
Modified: trunk/libjavascript-packer-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/debian/changelog?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/debian/changelog (original)
+++ trunk/libjavascript-packer-perl/debian/changelog Sun Jun 12 21:31:56 2011
@@ -1,3 +1,9 @@
+libjavascript-packer-perl (1.004000-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jotam Jr. Trejo <jotamjr at debian.org.sv> Sun, 12 Jun 2011 15:28:01 -0600
+
libjavascript-packer-perl (1.002001-1) unstable; urgency=low
* Team upload.
Modified: trunk/libjavascript-packer-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/inc/Module/Install.pm?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/inc/Module/Install.pm (original)
+++ trunk/libjavascript-packer-perl/inc/Module/Install.pm Sun Jun 12 21:31:56 2011
@@ -31,7 +31,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '1.00';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -467,4 +467,4 @@
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
Modified: trunk/libjavascript-packer-perl/inc/Module/Install/AutoInstall.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/inc/Module/Install/AutoInstall.pm?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/inc/Module/Install/AutoInstall.pm (original)
+++ trunk/libjavascript-packer-perl/inc/Module/Install/AutoInstall.pm Sun Jun 12 21:31:56 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libjavascript-packer-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/inc/Module/Install/Base.pm?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libjavascript-packer-perl/inc/Module/Install/Base.pm Sun Jun 12 21:31:56 2011
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
Modified: trunk/libjavascript-packer-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/inc/Module/Install/Can.pm?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libjavascript-packer-perl/inc/Module/Install/Can.pm Sun Jun 12 21:31:56 2011
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libjavascript-packer-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/inc/Module/Install/Fetch.pm?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libjavascript-packer-perl/inc/Module/Install/Fetch.pm Sun Jun 12 21:31:56 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libjavascript-packer-perl/inc/Module/Install/Include.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/inc/Module/Install/Include.pm?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/inc/Module/Install/Include.pm (original)
+++ trunk/libjavascript-packer-perl/inc/Module/Install/Include.pm Sun Jun 12 21:31:56 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libjavascript-packer-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/inc/Module/Install/Makefile.pm?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libjavascript-packer-perl/inc/Module/Install/Makefile.pm Sun Jun 12 21:31:56 2011
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libjavascript-packer-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/inc/Module/Install/Metadata.pm?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libjavascript-packer-perl/inc/Module/Install/Metadata.pm Sun Jun 12 21:31:56 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
Modified: trunk/libjavascript-packer-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/inc/Module/Install/Win32.pm?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libjavascript-packer-perl/inc/Module/Install/Win32.pm Sun Jun 12 21:31:56 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libjavascript-packer-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/inc/Module/Install/WriteAll.pm?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libjavascript-packer-perl/inc/Module/Install/WriteAll.pm Sun Jun 12 21:31:56 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libjavascript-packer-perl/lib/JavaScript/Packer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-packer-perl/lib/JavaScript/Packer.pm?rev=75527&op=diff
==============================================================================
--- trunk/libjavascript-packer-perl/lib/JavaScript/Packer.pm (original)
+++ trunk/libjavascript-packer-perl/lib/JavaScript/Packer.pm Sun Jun 12 21:31:56 2011
@@ -8,10 +8,23 @@
# =========================================================================== #
-our $VERSION = '1.002001';
+our $VERSION = '1.004';
+
+our @BOOLEAN_ACCESSORS = (
+ 'no_compress_comment',
+ 'remove_copyright'
+);
+
+our @COPYRIGHT_ACCESSORS = (
+ 'copyright',
+ 'copyright_comment'
+);
+
+our @COMPRESS_OPTS = ( 'clean', 'obfuscate', 'shrink', 'best' );
+our $DEFAULT_COMPRESS = 'clean';
our $PACKER_COMMENT = '\/\*\s*JavaScript::Packer\s*(\w+)\s*\*\/';
-our $COPYRIGHT_COMMENT = '(\/\*(?>[^\*]|\*[^\/])*copyright(?>[^\*]|\*[^\/])*\*\/)';
+our $COPYRIGHT_COMMENT = '\/\*((?>[^\*]|\*[^\/])*copyright(?>[^\*]|\*[^\/])*)\*\/';
our $SHRINK_VARS = {
BLOCK => qr/(((catch|do|if|while|with|function)\b[^~{};]*(\(\s*[^{};]*\s*\))\s*)?(\{[^{}]*\}))/, # function ( arg ) { ... }
@@ -132,7 +145,7 @@
}
];
- our $TRIM = [
+our $TRIM = [
{
regexp => '(\d)(?:\|\d)+\|(\d)',
replacement => sub { return sprintf( "%d-%d", $_[0]->{submatches}->[0] || 0, $_[0]->{submatches}->[1] || 0 ); }
@@ -150,10 +163,81 @@
replacement => ''
}
];
+
+our @REGGRPS = ( 'comments', 'clean', 'whitespace', 'concat', 'trim', 'data_store' );
+
+# --------------------------------------------------------------------------- #
+
+{
+ no strict 'refs';
+
+ foreach my $field ( @BOOLEAN_ACCESSORS ) {
+ next if defined *{ __PACKAGE__ . '::' . $field }{CODE};
+
+ *{ __PACKAGE__ . '::' . $field} = sub {
+ my ( $self, $value ) = @_;
+
+ $self->{'_' . $field} = $value ? 1 : undef if ( defined( $value ) );
+
+ return $self->{'_' . $field};
+ };
+ }
+
+ foreach my $field ( @COPYRIGHT_ACCESSORS ) {
+ $field = '_' . $field if ( $field eq 'copyright_comment' );
+ next if defined *{ __PACKAGE__ . '::' . $field }{CODE};
+
+ *{ __PACKAGE__ . '::' . $field} = sub {
+ my ( $self, $value ) = @_;
+
+ if ( defined( $value ) and not ref( $value ) ) {
+ $value =~ s/^\s*|\s*$//gs;
+ $self->{'_' . $field} = $value;
+ }
+
+ my $ret = '';
+
+ if ( $self->{'_' . $field} ) {
+ $ret = '/* ' . $self->{'_' . $field} . ' */' . "\n";
+ }
+
+ return $ret;
+ };
+ }
+
+ foreach my $reggrp ( @REGGRPS ) {
+ next if defined *{ __PACKAGE__ . '::reggrp_' . $reggrp }{CODE};
+
+ *{ __PACKAGE__ . '::reggrp_' . $reggrp } = sub {
+ my ( $self ) = shift;
+
+ return $self->{ '_reggrp_' . $reggrp };
+ };
+ }
+}
+
+sub compress {
+ my ( $self, $value ) = @_;
+
+ if ( defined( $value ) ) {
+ if ( grep( $value eq $_, @COMPRESS_OPTS ) ) {
+ $self->{_compress} = $value;
+ }
+ elsif ( ! $value ) {
+ $self->{_compress} = undef;
+ }
+ }
+
+ $self->{_compress} ||= $DEFAULT_COMPRESS;
+
+ return $self->{_compress};
+}
sub init {
my $class = shift;
my $self = {};
+
+ bless( $self, $class );
map {
my $what = $_;
@@ -267,13 +351,9 @@
$self->{comments}->{reggrp_data}->[-2]->{replacement} = sub {
my $submatches = $_[0]->{submatches};
if ( $submatches->[0] eq '@' ) {
- # I don't like this, but
- # $self->{comments}->{reggrp}->exec( \$_[1]->[1] ); ...
- # will not work. It isn't initialized jet.
- # If someone has a better idea, please let me know
- $self->_process_wrapper( 'comments', \$submatches->[1] );
- $self->_process_wrapper( 'clean', \$submatches->[1] );
- $self->_process_wrapper( 'whitespace', \$submatches->[1] );
+ $self->reggrp_comments()->exec( \$submatches->[1] );
+ $self->reggrp_clean()->exec( \$submatches->[1] );
+ $self->reggrp_whitespace()->exec( \$submatches->[1] );
return sprintf( "//%s%s\n%s", @{$submatches} );
}
@@ -284,10 +364,10 @@
my $submatches = $_[0]->{submatches};
if ( $submatches->[0] =~ /^\/\*\@(.*)\@\*\/$/sm ) {
my $cmnt = $1;
- # Same as above
- $self->_process_wrapper( 'comments', \$cmnt );
- $self->_process_wrapper( 'clean', \$cmnt );
- $self->_process_wrapper( 'whitespace', \$cmnt );
+
+ $self->reggrp_comments()->exec( \$cmnt );
+ $self->reggrp_clean()->exec( \$cmnt );
+ $self->reggrp_whitespace()->exec( \$cmnt );
return sprintf( '/*@%s@*/ %s', $cmnt, $submatches->[1] );
}
@@ -303,14 +383,10 @@
};
map {
- $self->{$_}->{reggrp} = Regexp::RegGrp->new( { reggrp => $self->{$_}->{reggrp_data} } );
- } ( 'comments', 'clean', 'whitespace', 'concat', 'trim' );
-
- $self->{data_store}->{reggrp} = Regexp::RegGrp->new( { reggrp => $self->{data_store}->{reggrp_data} } );
+ $self->{ '_reggrp_' . $_ } = Regexp::RegGrp->new( { reggrp => $self->{$_}->{reggrp_data} } );
+ } @REGGRPS;
$self->{block_data} = [];
-
- bless( $self, $class );
return $self;
}
@@ -350,57 +426,44 @@
$javascript = ref( $input ) ? $input : \$input;
}
- if ( ref( $opts ) ne 'HASH' ) {
- carp( 'Second argument must be a hashref of options! Using defaults!' ) if ( $opts );
- $opts = { compress => 'clean', copyright => '', no_compress_comment => 0, remove_copyright => 0 };
- }
- else {
- $opts->{compress} ||= 'clean';
- unless (
- grep(
- $_ eq $opts->{compress},
- ( 'clean', 'minify', 'shrink', 'base62', 'obfuscate', 'best' )
- )
- ) {
- $opts->{compress} = 'clean';
- }
-
- if ( $opts->{compress} eq 'minify' ) {
- $opts->{compress} = 'clean';
- }
- elsif ( $opts->{compress} eq 'base62' ) {
- $opts->{compress} = 'obfuscate';
- }
-
- $opts->{remove_copyright} = $opts->{remove_copyright} ? 1 : 0;
- $opts->{no_compress_comment} = $opts->{no_compress_comment} ? 1 : 0;
- $opts->{copyright} = '' if ( ref( $opts->{copyright} ) );
- $opts->{copyright} = ( $opts->{copyright} and $opts->{compress} eq 'clean' ) ? ( '/* ' . $opts->{copyright} . ' */' ) : '';
- }
-
- if ( not $opts->{remove_copyright} and not $opts->{copyright} and ${$javascript} =~ /$COPYRIGHT_COMMENT/ism ) {
- $opts->{copyright} = $1;
- }
-
- if ( not $opts->{no_compress_comment} and ${$javascript} =~ /$PACKER_COMMENT/ ) {
+ if ( ref( $opts ) eq 'HASH' ) {
+ foreach my $field ( @BOOLEAN_ACCESSORS ) {
+ $self->$field( $opts->{$field} ) if ( defined( $opts->{$field} ) );
+ }
+
+ foreach my $field ( 'compress', 'copyright' ) {
+ $self->$field( $opts->{$field} ) if ( defined( $opts->{$field} ) );
+ }
+ }
+
+ my $copyright_comment = '';
+
+ if ( ${$javascript} =~ /$COPYRIGHT_COMMENT/ism ) {
+ $copyright_comment = $1;
+ }
+ # Resets copyright_comment() if there is no copyright comment
+ $self->_copyright_comment( $copyright_comment );
+
+ if ( not $self->no_compress_comment() and ${$javascript} =~ /$PACKER_COMMENT/ ) {
my $compress = $1;
if ( $compress eq '_no_compress_' ) {
- return ( $cont eq 'scalar' ) ? ${$javascript} : undef;
- }
-
- $opts->{compress} = grep( $compress, ( 'clean', 'shrink', 'obfuscate', 'best' ) ) ? $compress : $opts->{compress};
+ return ${$javascript} if ( $cont eq 'scalar' );
+ return;
+ }
+
+ $self->compress( $compress );
}
${$javascript} =~ s/\r//gsm;
${$javascript} .= "\n";
- $self->{comments}->{reggrp}->exec( $javascript );
- $self->{clean}->{reggrp}->exec( $javascript );
- $self->{whitespace}->{reggrp}->exec( $javascript );
- $self->{concat}->{reggrp}->exec( $javascript );
-
- if ( $opts->{compress} ne 'clean' ) {
- $self->{data_store}->{reggrp}->exec( $javascript );
+ $self->reggrp_comments()->exec( $javascript );
+ $self->reggrp_clean()->exec( $javascript );
+ $self->reggrp_whitespace()->exec( $javascript );
+ $self->reggrp_concat()->exec( $javascript );
+
+ if ( $self->compress() ne 'clean' ) {
+ $self->reggrp_data_store()->exec( $javascript );
while( ${$javascript} =~ /$SHRINK_VARS->{BLOCK}/ ) {
${$javascript} =~ s/$SHRINK_VARS->{BLOCK}/$self->_store_block_data( $1 )/egsm;
@@ -422,12 +485,12 @@
${$javascript} =~ s/$shrunk_var/$short_id/g;
}
- $self->{data_store}->{reggrp}->restore_stored( $javascript );
+ $self->reggrp_data_store()->restore_stored( $javascript );
$self->{block_data} = [];
}
- if ( $opts->{compress} eq 'obfuscate' or $opts->{compress} eq 'best' ) {
+ if ( $self->compress() eq 'obfuscate' or $self->compress() eq 'best' ) {
my $words = {};
my @words = ${$javascript} =~ /$BASE62_VARS->{WORDS}/g;
@@ -501,7 +564,7 @@
my $pd = join( '|', @pattern );
- $self->{trim}->{reggrp}->exec( \$pd );
+ $self->reggrp_trim()->exec( \$pd );
unless ( $pd ) {
$pd = '^$';
@@ -588,7 +651,7 @@
$packed_length += ${$javascript} =~ tr/\\\'/\\\'/;
- if ( $opts->{compress} eq 'obfuscate' or $packed_length <= length( ${$javascript} ) ) {
+ if ( $self->compress() eq 'obfuscate' or $packed_length <= length( ${$javascript} ) ) {
${$javascript} =~ s/$BASE62_VARS->{WORDS}/sprintf( "%s", $words->{$1}->{encoded} )/eg;
@@ -602,15 +665,11 @@
}
- ${$javascript} = $opts->{copyright} . "\n" . ${$javascript} if ( $opts->{copyright} );
+ if ( not $self->remove_copyright() ) {
+ ${$javascript} = ( $self->copyright() || $self->_copyright_comment() ) . ${$javascript};
+ }
return ${$javascript} if ( $cont eq 'scalar' );
-}
-
-sub _process_wrapper {
- my ( $self, $reg_name, $in ) = @_;
-
- $self->{$reg_name}->{reggrp}->exec( $in );
}
sub _restore_data {
@@ -728,7 +787,7 @@
=head1 VERSION
-Version 1.002001
+Version 1.004
=head1 DESCRIPTION
@@ -769,11 +828,9 @@
is recommended because especially when compressing short scripts the result
will exceed the input if compression level is 'obfuscate'.
-For backward compatibility 'minify' and 'base62' will still work.
-
=item copyright
-You can add a copyright notice on top of the script.
+You can add a copyright notice at the top of the script.
=item remove_copyright
@@ -791,8 +848,6 @@
/* JavaScript::Packer _no_compress_ */
/* JavaScript::Packer shrink */
-Is set by default.
-
=back
=head1 EXAMPLES
@@ -855,9 +910,8 @@
=head1 BUGS
-Please report any bugs or feature requests to
-C<bug-javascript-packer at rt.cpan.org>, or through the web interface at
-L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=JavaScript-Packer>.
+Please report any bugs or feature requests through the web interface at
+L<http://github.com/nevesenin/javascript-packer-perl/issues>.
=head1 SUPPORT
More information about the Pkg-perl-cvs-commits
mailing list