package Net::FS::Flickr::DefaultImage;
use Imager;
use base qw(Imager);
=head1 NAME
Net::FS::Flickr::DefaultImage - provide a default image for Net::FS::Flickr
=head1 METHODS
=head2 restore
Returns an Imager object representing the default image
=cut
sub restore {
my $class = shift;
my $self = $class->new;
{
local $/=undef;
$self->open( data => <DATA>, type=>'jpeg' );
}
return $self;
}
=head1 AUTHOR
Simon Wistow <simon@thegestalt.org>
=cut
1;
__DATA__
JFIF H H Photoshop 3.0 8BIM
Resolution H H 8BIM
FX Global Lighting Angle x8BIMFX Global Altitude 8BIMPrint Flags 8BIM
Copyright Flag 8BIM'Japanese Print Flags
8BIMColor Halftone Settings H /ff lff /ff 2 Z 5 - 8BIMColor Transfer Settings p 8BIM Layer State 8BIMLayer Groups 8BIMGuides @ @ 8BIM
URL overrides 8BIMSlices u
U n t i t l e d - 1 8BIMICC Untagged Flag 8BIMLayer ID Generator Base
8BIMNew Windows Thumbnail p p P
JFIF H H Adobe d
p p"