Bboxtree.pm (gscan2pdf-2.13.1.tar.xz) | : | Bboxtree.pm (gscan2pdf-2.13.2.tar.xz) | ||
---|---|---|---|---|
package Gscan2pdf::Bboxtree; | package Gscan2pdf::Bboxtree; | |||
use strict; | use strict; | |||
use warnings; | use warnings; | |||
use feature 'switch'; | use feature 'switch'; | |||
no if $] >= 5.018, warnings => 'experimental::smartmatch'; | no if $] >= 5.018, warnings => 'experimental::smartmatch'; | |||
use HTML::TokeParser; | use HTML::TokeParser; | |||
use Encode qw(decode_utf8 encode_utf8); | use Encode qw(decode_utf8 encode_utf8); | |||
use Glib qw(TRUE FALSE); # To get TRUE and FALSE | use Glib qw(TRUE FALSE); # To get TRUE and FALSE | |||
use Gscan2pdf::Document; | use Gscan2pdf::Document; | |||
use Carp; | use Carp; | |||
use JSON::PP; | use JSON::PP; | |||
#use Text::Balanced qw ( extract_bracketed ); | #use Text::Balanced qw ( extract_bracketed ); | |||
use Readonly; | use Readonly; | |||
Readonly my $EMPTY_LIST => -1; | Readonly my $EMPTY_LIST => -1; | |||
Readonly my $HALF => 0.5; | Readonly my $HALF => 0.5; | |||
my $EMPTY = q{}; | my $EMPTY = q{}; | |||
my $SPACE = q{ }; | my $SPACE = q{ }; | |||
my $DOUBLE_QUOTES = q{"}; | my $DOUBLE_QUOTES = q{"}; | |||
my $BBOX_REGEX = qr{(\d+)\s+(\d+)\s+(\d+)\s+(\d+)}xsm; | my $BBOX_REGEX = qr{(\d+)\s+(\d+)\s+(\d+)\s+(\d+)}xsm; | |||
my $HILITE_REGEX = qr{[(]hilite\s+[#][A-Fa-f\d]{6}[)]\s+[(]xor[)]}xsm; | my $HILITE_REGEX = qr{[(]hilite\s+[#][A-Fa-f\d]{6}[)]\s+[(]xor[)]}xsm; | |||
BEGIN { | BEGIN { | |||
use Exporter (); | use Exporter (); | |||
our ( $VERSION, @EXPORT_OK, %EXPORT_TAGS ); | our ( $VERSION, @EXPORT_OK, %EXPORT_TAGS ); | |||
$VERSION = '2.13.1'; | $VERSION = '2.13.2'; | |||
use base qw(Exporter); | use base qw(Exporter); | |||
%EXPORT_TAGS = (); # eg: TAG => [ qw!name1 name2! ], | %EXPORT_TAGS = (); # eg: TAG => [ qw!name1 name2! ], | |||
# your exported package globals go here, | # your exported package globals go here, | |||
# as well as any optionally exported functions | # as well as any optionally exported functions | |||
@EXPORT_OK = qw(); | @EXPORT_OK = qw(); | |||
} | } | |||
our @EXPORT_OK; | our @EXPORT_OK; | |||
End of changes. 2 change blocks. | ||||
2 lines changed or deleted | 2 lines changed or added |