/usr/share/perl5/Image/Info/XBM.pm is in libimage-info-perl 1.41-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 | package Image::Info::XBM;
$VERSION = '1.08';
use strict;
use Image::Xbm 1.07;
sub process_file {
my($info, $source, $opts) = @_;
local $SIG{__WARN__} = sub {
$info->push_info(0, "Warn", shift);
};
my $i = Image::Xbm->new(-width => 0, -height => 0);
# loading the file as a separate step avoids a "-r" test, this would
# file with in-memory strings (aka fake files)
$i->load($source);
$info->push_info(0, "color_type" => "Grey");
$info->push_info(0, "file_ext" => "xbm");
$info->push_info(0, "file_media_type" => "image/x-xbitmap");
$info->push_info(0, "height", $i->get(-height));
$info->push_info(0, "resolution", "1/1");
$info->push_info(0, "width", $i->get(-width));
$info->push_info(0, "BitsPerSample" => 1);
$info->push_info(0, "SamplesPerPixel", 1);
$info->push_info(0, "ColorTableSize" => 2 );
if( $opts->{L1D_Histogram} ){
#Do Histogram
my $imgdata = $i->as_binstring();
$info->push_info(0, "L1D_Histogram", [$imgdata =~ tr/0//d,
$imgdata =~ tr/1//d ]);
}
$info->push_info(0, "HotSpotX" => $i->get(-hotx) );
$info->push_info(0, "HotSpotY" => $i->get(-hoty) );
}
1;
__END__
=head1 NAME
Image::Info::XBM - XBM support for Image::Info
=head1 SYNOPSIS
use Image::Info qw(image_info dim);
my $info = image_info("image.xbm");
if (my $error = $info->{error}) {
die "Can't parse image info: $error\n";
}
my $color = $info->{color_type};
my($w, $h) = dim($info);
=head1 DESCRIPTION
This modules supplies the standard key names
except for Compression, Gamma, Interlace, LastModificationTime, as well as:
=over
=item HotSpotX
The x-coord of the image's hotspot.
Set to -1 if there is no hotspot.
=item HotSpotY
The y-coord of the image's hotspot.
Set to -1 if there is no hotspot.
=item L1D_Histogram
Reference to an array representing a one dimensional luminance
histogram. This key is only present if C<image_info> is invoked
as C<image_info($file, L1D_Histogram=E<gt>1)>. The range is from 0 to 1.
=back
=head1 METHODS
=head2 process_file()
$info->process_file($source, $options);
Processes one file and sets the found info fields in the C<$info> object.
=head1 AUTHOR
=head1 FILES
This module requires L<Image::Xbm>
=head1 SEE ALSO
L<Image::Info>, L<Image::Xbm>
=head1 NOTES
For more information about XBM see
L<http://www.martinreddy.net/gfx/2d/XBM.txt>.
=head1 AUTHOR
Jerrad Pierce <belg4mit@mit.edu>/<webmaster@pthbb.org>
Tels - (c) 2006
Current maintainer: Slaven Rezic <srezic@cpan.org>
This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut
=begin register
MAGIC: /^(?:\/\*.*\*\/\n)?#define\s/
See L<Image::Info::XBM> for details.
=end register
=cut
|