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