VERSION

DESCRIPTION

This module is an adaptation of Dean Edwards' Packer.js.

Additional information: http://dean.edwards.name/packer/

SYNOPSIS

use JavaScript::Packer;
my $packer = JavaScript::Packer->init();
$packer->minify( $javascript, $opts );

To return a scalar without changing the input simply use (e.g. example 2):

    my $ret = $packer->minify( $javascript, $opts );

For backward compatibility it is still possible to call 'minify' as a function:

    JavaScript::Packer::minify( $javascript, $opts );

The first argument must be a scalarref of javascript-code.

Second argument must be a hashref of options. Possible options are:

compress

Defines compression level. Possible values are 'clean', 'shrink', 'obfuscate' and 'best'. Default value is 'clean'. 'best' uses 'shrink' or 'obfuscate' depending on which result is shorter. This is recommended because especially when compressing short scripts the result will exceed the input if compression level is 'obfuscate'.

copyright

You can add a copyright notice at the top of the script.

remove_copyright

If there is a copyright notice in a comment it will only be removed if this option is set to a true value. Otherwise the first comment that contains the word ``copyright'' will be added at the top of the packed script. A copyright comment will be overwritten by a copyright notice defined with the copyright option.

no_compress_comment

If not set to a true value it is allowed to set a JavaScript comment that prevents the input being packed or defines a compression level.

    /* JavaScript::Packer _no_compress_ */
    /* JavaScript::Packer shrink */

EXAMPLES

Example 1

Common usage.

    #!/usr/bin/perl
    use strict;
    use warnings;
    use JavaScript::Packer;
    my $packer = JavaScript::Packer->init();
    open( UNCOMPRESSED, 'uncompressed.js' );
    open( COMPRESSED, '>compressed.js' );
    my $js = join( '', <UNCOMPRESSED> );
    $packer->minify( \$js, { compress => 'best' } );
    print COMPRESSED $js;
    close(UNCOMPRESSED);
    close(COMPRESSED);

Example 2

A scalar is requested by the context. The input will remain unchanged.

    #!/usr/bin/perl
    use strict;
    use warnings;
    use JavaScript::Packer;
    my $packer = JavaScript::Packer->init();
    open( UNCOMPRESSED, 'uncompressed.js' );
    open( COMPRESSED, '>compressed.js' );
    my $uncompressed = join( '', <UNCOMPRESSED> );
    my $compressed = $packer->minify( \$uncompressed, { compress => 'best' } );
    print COMPRESSED $compressed;
    close(UNCOMPRESSED);
    close(COMPRESSED);

AUTHOR

SUPPORT

perldoc JavaScript::Packer

COPYRIGHT & LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.