/usr/share/perl5/Geo/GoogleEarth/Pluggable/Contrib/LineString.pm is in libgeo-googleearth-pluggable-perl 0.15-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | package Geo::GoogleEarth::Pluggable::Contrib::LineString;
use base qw{Geo::GoogleEarth::Pluggable::Placemark};
use XML::LibXML::LazyBuilder qw{E};
use warnings;
use strict;
our $VERSION='0.09';
=head1 NAME
Geo::GoogleEarth::Pluggable::Contrib::LineString - Geo::GoogleEarth::Pluggable LineString Object
=head1 SYNOPSIS
use Geo::GoogleEarth::Pluggable;
my $document=Geo::GoogleEarth::Pluggable->new();
$document->LineString();
=head1 DESCRIPTION
Geo::GoogleEarth::Pluggable::Contrib::LineString is a L<Geo::GoogleEarth::Pluggable::Placemark> with a few other methods.
=head1 USAGE
my $placemark=$document->LineString(name=>"LineString Name",
coordinates=>[[lat,lon,alt],
[lat,lon,alt],...]);
=head1 CONSTRUCTOR
=head2 new
my $placemark=$document->LineString();
=head1 METHODS
=head2 subnode
=cut
sub subnode {
my $self=shift;
my %data=%$self;
$data{"tessellate"}=1 unless defined $data{"tessellate"};
my $coordinates=$self->coordinates_stringify($data{"coordinates"});
my @element=();
push @element, E(tessellate=>{}, $data{"tessellate"});
push @element, E(coordinates=>{}, $coordinates);
return E(LineString=>{}, @element);
}
=head1 BUGS
Please log on RT and send to the geo-perl email list.
=head1 SUPPORT
Try geo-perl email list.
=head1 AUTHOR
Michael R. Davis (mrdvt92)
CPAN ID: MRDVT
=head1 COPYRIGHT
This program is free software licensed under the...
The BSD License
The full text of the license can be found in the
LICENSE file included with this module.
=head1 SEE ALSO
L<Geo::GoogleEarth::Pluggable>, L<XML::LibXML::LazyBuilder>, L<Geo::GoogleEarth::Pluggable::Placemark>
=cut
1;
|