Test Perl linter fix

bwipp · Apr 28, 2022 · 080ec1b · 080ec1b
1 parent 88510ab
commit 080ec1b
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/libs/bindings/perl/example.pl b/libs/bindings/perl/example.pl
@@ -3,19 +3,19 @@
 use strict;
 use postscriptbarcode;
 
-my $bwipp1=new postscriptbarcode::BWIPP("../../../build/monolithic_package/barcode.ps") || die 'Failed to load resource\n';
-my $bwipp2=new postscriptbarcode::BWIPP("../../../build/monolithic/barcode.ps") || die 'Failed to load resource\n';
+my $bwipp1 = postscriptbarcode::BWIPP("../../../build/monolithic_package/barcode.ps")->new() || die 'Failed to load resource\n';
+my $bwipp2 = postscriptbarcode::BWIPP("../../../build/monolithic/barcode.ps")->new() || die 'Failed to load resource\n';
 
-my $ver=$bwipp1->get_version() || die 'Failed to get version\n';
+my $ver = $bwipp1->get_version() || die 'Failed to get version\n';
 print "Packaged version: $ver\n";
-$ver=$bwipp2->get_version() || die 'Failed to get version\n';
+
+$ver = $bwipp2->get_version() || die 'Failed to get version\n';
 print "Unpackaged version: $ver\n";
 
-my $ps=$bwipp1->emit_all_resources();
-my $lines=$ps=~tr/\n//;
+my $ps = $bwipp1->emit_all_resources();
+my $lines = $ps=~tr/\n//;
 print "Packaged lines: $lines\n";
-$ps=$bwipp2->emit_all_resources();
-$lines=$ps=~tr/\n//;
-print "Unpackaged lines: $lines\n";
-
 
+$ps = $bwipp2->emit_all_resources();
+$lines = $ps=~tr/\n//;
+print "Unpackaged lines: $lines\n";