File Coverage

blib/lib/Net/Flickr/Geo/Pinwin.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	24	54.1

# $Id: Pinwin.pm,v 1.6 2008/08/03 17:08:40 asc Exp $

use strict;
package Net::Flickr::Geo::Pinwin;

$Net::Flickr::Geo::Pinwin::VERSION = '0.72';

=head1 NAME

Net::Flickr::Geo::Pinwin - markers for geotagged Flickr photos

=head1 SYNOPSIS

 use Net::Flickr::Geo::Pinwin;
 my $pinwin = Net::Flickr::Geo::Pinwin->mk_flickr_pinwin();

=head1 DESCRIPTION

Markers for geotagged Flickr photos.

=cut

use File::Temp qw (tempfile);
use MIME::Base64;

=head1 PACKAGE METHODS

=cut

=head2 __PACKAGE__->mk_flickr_pinwin()

Create a file containing a Flickr-style map marker window that in to which you can
paste a 75 x 75 pixel image.

Returns the path to the newly created pinwin marker.

=cut

sub mk_flickr_pinwin {
        my $pkg = shift;

        my $b64 = '';

        {
                local $/;
                undef $/;
                $b64 = ;
        }

        my ($fh, $pinwin) = tempfile(UNLINK => 0, SUFFIX => ".png");

        $fh->print(MIME::Base64::decode_base64($b64));
        $fh->close();

        return $pinwin;
}

=head1 VERSION

0.72

=head1 DATE

$Date: 2008/08/03 17:08:40 $

=head1 AUTHOR

Aaron Straup Cope  [e-mail]

=head1 SEE ALSO

L

=head1 BUGS

Sure, why not.

Please report all bugs via L

=head1 LICENSE

Copyright (c) 2007-2008 Aaron Straup Cope. All Rights Reserved.

This is free software. You may redistribute it and/or
modify it under the same terms as Perl itself.

=cut

return 1;

__DATA__