1package Pod::ProjectDocs::ArrowImage; 2use strict; 3use warnings; 4use base qw/Pod::ProjectDocs::File/; 5use MIME::Base64; 6use File::Basename; 7 8__PACKAGE__->default_name('up.gif'); 9__PACKAGE__->data( do{ local $/; <DATA> } ); 10__PACKAGE__->is_bin(1); 11 12sub tag { 13 my($self, $doc) = @_; 14 my($name, $path) = fileparse $doc->get_output_path, qw/\.html/; 15 my $relpath = File::Spec->abs2rel($self->get_output_path, $path); 16 $relpath =~ s:\\:/:g if $^O eq 'MSWin32'; 17 return sprintf qq|<a href="#TOP" class="toplink"><img alt="^" src="%s" /></a>|, $relpath; 18} 19 20sub _get_data { 21 my $self = shift; 22 return decode_base64($self->data); 23} 24 251; 26__DATA__ 27R0lGODlhDwAPAIAAAABmmf///yH5BAEAAAEALAAAAAAPAA8AAAIjhI8Jwe1tXlgvulMpS1crT33W 28uGBkpm3pZEEr1qGZHEuSKBYAOw== 29