File: test_setup.pl

package info (click to toggle)
libimage-metadata-jpeg-perl 0.159-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 1,236 kB
  • sloc: perl: 3,676; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 340 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
use strict;
use warnings;

BEGIN { $::pkgname = 'Image::MetaData::JPEG';
	$::recname = "${main::pkgname}::Record";
	$::segname = "${main::pkgname}::Segment";
	$::tabname = "${main::pkgname}::data::Tables"; }

sub newimage   { $::pkgname->new(@_) };
sub newrecord  { $::recname->new(@_) };
sub newsegment { $::segname->new(@_) };

return 1;