File Coverage

blib/lib/Geo/Google/MyMap/KMLURL.pm
Criterion Covered Total %
statement 19 19 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Geo::Google::MyMap::KMLURL;
2              
3 3     3   232855 use warnings;
  3         9  
  3         86  
4 3     3   15 use strict;
  3         6  
  3         85  
5 3     3   15 use Carp;
  3         11  
  3         240  
6              
7 3     3   4140 use version; our $VERSION = qv('0.0.1');
  3         7531  
  3         18  
8 3     3   250 use base 'Exporter';
  3         5  
  3         409  
9              
10             our @EXPORT = qw(
11             mymap2kmlurl
12             );
13              
14             sub mymap2kmlurl {
15 5     5 1 22561 my $input = shift;
16              
17 5         35 my ( $msid ) = $input =~ /(?:^|msid=)([0-9]{21}\.[0-9a-f]{21})(?:$|&)/;
18              
19 5 100       387 croak "Cannot find msid from argument" unless ( $msid );
20              
21 3         17 "http://maps.google.co.jp/maps/ms?msa=0&msid=$msid&output=kml&ge_fileext=.kml";
22             }
23              
24             1; # Magic true value required at end of module
25             __END__