[SCM] libgeo-googleearth-pluggable-perl Debian packaging branch, master, updated. debian/0.14-1-18-g4e85eed
Jonas Smedegaard
dr at jones.dk
Thu Jul 18 03:13:55 UTC 2013
The following commit has been merged in the master branch:
commit 6e66668b39aa02a7ed40ff26315e9a2a65c940d7
Author: Jonas Smedegaard <dr at jones.dk>
Date: Thu Jul 18 05:01:15 2013 +0200
Imported Upstream version 0.15
diff --git a/Changes b/Changes
index 349986b..3036050 100644
--- a/Changes
+++ b/Changes
@@ -1,35 +1,76 @@
Revision history for Perl module Geo::GoogleEarth::Pluggable
+TODO
+ - Anybody using IO::Scalar should consider porting to IO::String, which is smaller, lighter, and is implemented to be perfectly compatible with regular seekable filehandles.
+
+my $look=$document->LookAt(datetime=>$datetime || [$datetime1, $datetime2]); #DateTime objects or W3C dateTime formated strings
+
+<LookAt>
+ <gx:TimeStamp><when>2011-05-24T14:08:00Z</when></gx:TimeStamp>
+</LookAt>
+
+<LookAt>
+ <gx:TimeSpan>
+ <begin>2011-05-24T14:07:59Z</begin>
+ <end>2011-05-24T14:08:00Z</end>
+ </gx:TimeSpan>
+</LookAt>
+
+0.15 2011-01-17
+ - Fixed HTTP header incoding for Content-Disposition - same as RT73369
+
+0.14 2011-06-25
+ - Added Package::New capabilities
+ - Dropped core requires from Makefile.PL
+ - Added LookAt capability
+ - Added Geo::GoogleEarth::Pluggable::LookAt package
+ - Added Folder->LookAt constructor
+ - Added Base->lookat property
+ - Updated NetworkLink to support refreshInterval
+ - Updated Documentation
+ - Geo/GoogleEarth/Pluggable/Plugin/Style.pm
+
0.13 2010-12-27
- Updated point_normalize to normalize strings with whitespace and look like numbers as white space is the delimiter in the "cooridnates" element.
- Updated Geo::GoogleEarth::Pluggable::Contrib::Point->subnode as well but why is this not using the point_normalize?
+
0.12 2010-12-26
- Added snippet capability
- Added Snippet example
- Added tests
+
0.11 2010-08-20
- Removed desiredCompressionLevel setting due to bug RT54827 - RT60563
- Added kmz option to all example scripts
- Added example scripts
+
0.10 2010-04-19
- Added description support in Folder and Placemark
+
0.09 2009-11-27
- Added StyleMap support
- Moved id and url methods from Style to StyleBase module
+
0.08 2009-11-26
- Modified document->render method to be a wrapper around folder->node
+
0.07 2009-11-16
- Cleaned up Document->render and Folder->node methods
+
0.06 2009-11-15
- Minor updates to support Geo::GoogleEarth::Pluggable::Plugin::Styles
+
0.05 2009-11-11
- Use XML::LibXML to generate XML via XML::LibXML::LazyBuilder
- Implemented IconStyle
+
0.04 2009-11-10 - Happy Birthday Marines!
- Started work on Style objects and exceeded the capabilites of XML::Simple
-0.03
+
+0.03 2009-11-02
- Changed setting the "packages" property to using the pushPackages method which now allows testing with constructing the Folder object with Folder(packages=>[MyPackage])
- Removed "use blib;" from Folder object.
+
0.02 2009-10-29
- Updated prerequisites in Makefile.PL
- Removed Address method (does not appear to work anyway)
@@ -42,5 +83,6 @@ Revision history for Perl module Geo::GoogleEarth::Pluggable
- Added LineString example
- Added default altitude for hash in point_stringify {alt=>0}
- Added all packages to test
+
0.01 2009-10-28
- original version
diff --git a/MANIFEST b/MANIFEST
index 2713f43..553f8e8 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,10 +1,12 @@
Changes
lib/Geo/GoogleEarth/Pluggable.pm
+lib/Geo/GoogleEarth/Pluggable/Constructor.pm
lib/Geo/GoogleEarth/Pluggable/Base.pm
lib/Geo/GoogleEarth/Pluggable/Contrib/LinearRing.pm
lib/Geo/GoogleEarth/Pluggable/Contrib/LineString.pm
lib/Geo/GoogleEarth/Pluggable/Contrib/Point.pm
lib/Geo/GoogleEarth/Pluggable/Folder.pm
+lib/Geo/GoogleEarth/Pluggable/LookAt.pm
lib/Geo/GoogleEarth/Pluggable/NetworkLink.pm
lib/Geo/GoogleEarth/Pluggable/Placemark.pm
lib/Geo/GoogleEarth/Pluggable/Plugin/Default.pm
diff --git a/META.yml b/META.yml
index 7021a3a..d0a9d36 100644
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Geo-GoogleEarth-Pluggable
-version: 0.13
+version: 0.15
abstract: Generates GoogleEarth Documents
license: ~
author:
@@ -9,14 +9,12 @@ generated_by: ExtUtils::MakeMaker version 6.42
distribution_type: module
requires:
Archive::Zip: 0
- base: 0
IO::Scalar: 0
Method::Autoload: 0
Module::Pluggable: 0
+ Package::New: 0
Scalar::Util: 0
- strict: 0
Test::Simple: 0.44
- warnings: 0
XML::LibXML::LazyBuilder: 0
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
diff --git a/Makefile.PL b/Makefile.PL
index 5cec673..1da419b 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -12,8 +12,6 @@ WriteMakefile(
'Archive::Zip' => 0,
'Method::Autoload' => 0,
'Module::Pluggable' => 0,
- 'strict' => 0,
- 'warnings' => 0,
- 'base' => 0,
+ 'Package::New' => 0,
},
);
diff --git a/Todo b/Todo
index e5c44f0..99985af 100644
--- a/Todo
+++ b/Todo
@@ -1,3 +1,3 @@
TODO list for Perl module Geo::GoogleEarth::Pluggable
-See pod documentation
+See Changes and pod documentation
diff --git a/lib/Geo/GoogleEarth/Pluggable.pm b/lib/Geo/GoogleEarth/Pluggable.pm
index 4cabab7..04886da 100644
--- a/lib/Geo/GoogleEarth/Pluggable.pm
+++ b/lib/Geo/GoogleEarth/Pluggable.pm
@@ -6,7 +6,7 @@ use XML::LibXML::LazyBuilder qw{DOM E};
use Archive::Zip qw{COMPRESSION_DEFLATED};
use IO::Scalar qw{};
-our $VERSION='0.13';
+our $VERSION='0.15';
=head1 NAME
@@ -19,6 +19,7 @@ Geo::GoogleEarth::Pluggable - Generates GoogleEarth Documents
my $folder =$document->Folder(%data); #isa Geo::GoogleEarth::Pluggable::Folder
my $point =$document->Point(%data); #isa Geo::GoogleEarth::Pluggable::Point
my $netlink =$document->NetworkLink(%data); #isa Geo::GoogleEarth::Pluggable::NetworkLink
+ my $lookat =$document->LookAt(%data); #isa Geo::GoogleEarth::Pluggable::LookAt
my $style =$document->Style(%data); #isa Geo::GoogleEarth::Pluggable::Style
print $document->render;
@@ -44,16 +45,32 @@ Geo::GoogleEarth::Pluggable (aka Document) is a L<Geo::GoogleEarth::Pluggable::F
=head2 Object Inheritance Graph
- -- Base --- Folder --- Document
- |
- +- Placemark -+- Point
- | +- LineString
- | +- LinearRing
- |
- +- StyleBase -+- Style
- | +- StyleMap
- |
- +- NetworkLink
+ --- Constructor -+- Base --- Folder --- Document
+ | |
+ | +- Placemark -+- Point
+ | | +- LineString
+ | | +- LinearRing
+ | |
+ | +- StyleBase -+- Style
+ | | +- StyleMap
+ | |
+ | +- NetworkLink
+ |
+ +- LookAt
+
+=head2 Constructors that append to the parent folder object
+
+Folder, NetworkLink, Point, LineString, LinearRing
+
+=head2 Constructors that return objects for future use
+
+LookAt(), Style(), StyleMap()
+
+=head2 Wrappers (what makes it easy)
+
+Style => IconStyle, LineStyle, PolyStyle, LabelStyle, ListStyle
+
+Point => MultiPoint
=head1 USAGE
@@ -197,7 +214,7 @@ sub header {
$data{"content_type"}="application/vnd.google-earth.kml+xml"
unless defined $data{"content_type"};
my $header=sprintf("Content-type: %s\n", $data{"content_type"});
- $header.=sprintf("Content-Disposition: attachment; filename=%s\n",
+ $header.=sprintf(qq{Content-Disposition: attachment; filename="%s";\n},
$data{"filename"}) if defined $data{"filename"};
$header.="\n";
return $header;
@@ -227,8 +244,6 @@ sub header_kmz {
=over
-=item Full support for LookAt
-
=item Support for default Polygon and Line styles that are nicer than GoogleEarth's
=item Support for DateTime object in the constructor that is promoted to the LookAt object.
diff --git a/lib/Geo/GoogleEarth/Pluggable/Base.pm b/lib/Geo/GoogleEarth/Pluggable/Base.pm
index c0fbc9f..14cbbf3 100644
--- a/lib/Geo/GoogleEarth/Pluggable/Base.pm
+++ b/lib/Geo/GoogleEarth/Pluggable/Base.pm
@@ -1,8 +1,9 @@
package Geo::GoogleEarth::Pluggable::Base;
use warnings;
use strict;
+use base qw{Geo::GoogleEarth::Pluggable::Constructor};
-our $VERSION='0.12';
+our $VERSION='0.14';
=head1 NAME
@@ -26,36 +27,8 @@ The is the base of all Geo::GoogleEarth::Pluggable packages.
key2=>[value=>{opt1=>val1}],
key3=>{value=>{opt2=>val2}});
-=cut
-
-sub new {
- my $this = shift();
- my $class = ref($this) || $this;
- my $self = {};
- bless $self, $class;
- $self->initialize(@_);
- return $self;
-}
-
=head1 METHODS
-=head2 initialize
-
-=cut
-
-sub initialize {
- my $self = shift();
- %$self=@_;
-}
-
-=head2 document
-
-Always returns the document object. Every object should know what document it is in.
-
-=cut
-
-sub document {shift->{"document"}};
-
=head2 name
Sets or returns the name property.
@@ -123,6 +96,18 @@ sub Snippet {
return $self->{"Snippet"};
}
+=head2 lookat
+
+Sets or returns a L<Geo::GoogleEarth::Pluggable::LookAt> object
+
+=cut
+
+sub lookat {
+ my $self=shift;
+ $self->{"lookat"}=shift if @_;
+ return $self->{"lookat"};
+}
+
=head1 BUGS
Please log on RT and send to the geo-perl email list.
diff --git a/lib/Geo/GoogleEarth/Pluggable/Constructor.pm b/lib/Geo/GoogleEarth/Pluggable/Constructor.pm
new file mode 100644
index 0000000..9f1b6cc
--- /dev/null
+++ b/lib/Geo/GoogleEarth/Pluggable/Constructor.pm
@@ -0,0 +1,67 @@
+package Geo::GoogleEarth::Pluggable::Constructor;
+use warnings;
+use strict;
+use base qw{Package::New};
+
+our $VERSION='0.14';
+
+=head1 NAME
+
+Geo::GoogleEarth::Pluggable::Constructor - Geo::GoogleEarth::Pluggable Constructor package
+
+=head1 SYNOPSIS
+
+ use base qw{Geo::GoogleEarth::Pluggable::Constructor};
+
+=head1 DESCRIPTION
+
+The is the constructor for all Geo::GoogleEarth::Pluggable packages.
+
+=head1 USAGE
+
+=head1 CONSTRUCTOR
+
+=head2 new
+
+ my $document = Geo::GoogleEarth::Pluggable->new(key1=>value1,
+ key2=>[value=>{opt1=>val1}],
+ key3=>{value=>{opt2=>val2}});
+
+=head1 METHODS
+
+=head2 document
+
+Always returns the document object. Every object should know what document it is in.
+
+=cut
+
+sub document {shift->{"document"}};
+
+=head1 BUGS
+
+Please log on RT and send to the geo-perl email list.
+
+=head1 SUPPORT
+
+DavisNetworks.com supports all Perl applications including this package.
+
+=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> creates a GoogleEarth Document.
+
+=cut
+
+1;
diff --git a/lib/Geo/GoogleEarth/Pluggable/Contrib/LinearRing.pm b/lib/Geo/GoogleEarth/Pluggable/Contrib/LinearRing.pm
index 604067c..d90d242 100644
--- a/lib/Geo/GoogleEarth/Pluggable/Contrib/LinearRing.pm
+++ b/lib/Geo/GoogleEarth/Pluggable/Contrib/LinearRing.pm
@@ -70,8 +70,7 @@ 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.
+The full text of the license can be found in the LICENSE file included with this module.
=head1 SEE ALSO
diff --git a/lib/Geo/GoogleEarth/Pluggable/Folder.pm b/lib/Geo/GoogleEarth/Pluggable/Folder.pm
index a5240b1..1562c95 100644
--- a/lib/Geo/GoogleEarth/Pluggable/Folder.pm
+++ b/lib/Geo/GoogleEarth/Pluggable/Folder.pm
@@ -9,8 +9,9 @@ use Module::Pluggable search_path => "Geo::GoogleEarth::Pluggable::Plugin";
use base qw{Method::Autoload};
use Geo::GoogleEarth::Pluggable::NetworkLink;
+use Geo::GoogleEarth::Pluggable::LookAt;
-our $VERSION ='0.10';
+our $VERSION ='0.14';
=head1 NAME
@@ -80,6 +81,27 @@ sub NetworkLink {
return $obj;
}
+=head2 LookAt
+
+Constructs a new LookAt object and returns the object reference to assign to other object "lookat" properties.
+
+ $document->LookAt(
+ latitude => $lat, #decimal degrees
+ longitude => $lon, #decimal degrees
+ range => $range, #meters
+ tilt => $tilt, #decimal degrees from veritical
+ heading => $header, #decimal degrees from North
+ );
+
+=cut
+
+sub LookAt {
+ my $self=shift();
+ my $obj=Geo::GoogleEarth::Pluggable::LookAt->new(document=>$self->document, @_);
+ $self->data($obj);
+ return $obj;
+}
+
=head2 type
Returns the object type.
diff --git a/lib/Geo/GoogleEarth/Pluggable/LookAt.pm b/lib/Geo/GoogleEarth/Pluggable/LookAt.pm
new file mode 100644
index 0000000..eb3b6e3
--- /dev/null
+++ b/lib/Geo/GoogleEarth/Pluggable/LookAt.pm
@@ -0,0 +1,160 @@
+package Geo::GoogleEarth::Pluggable::LookAt;
+use strict;
+use warnings;
+use base qw{Geo::GoogleEarth::Pluggable::Constructor};
+use XML::LibXML::LazyBuilder qw{E};
+
+our $VERSION="0.14";
+
+=head1 NAME
+
+Geo::GoogleEarth::Pluggable::LookAt - Geo::GoogleEarth::Pluggable LookAt package
+
+=head1 SYNOPSIS
+
+ my $lookat=$document->LookAt(
+ latitude => 38.1741527,
+ longitude => -96.7839388,
+ range => 3525808,
+ heading => 0,
+ tilt => 0,
+ );
+
+Assign LookAt during construction
+
+ my $folder=$document->Folder(name=>"MyLook", lookat=>$lookat);
+ my $point=$folder->Point(lat=>$lat, lon=>$lon, lookat=>$lookat);
+
+Assign LookAt afer construction
+
+ $document->lookat($lookat);
+ $folder->lookat($lookat);
+ $point->lookat($lookat);
+
+Do it all at one time
+
+ my $point=$folder->Point(lat => $lat,
+ lon => $lon,
+ lookat => $document->LookAt(%data));
+
+=head1 DESCRIPTION
+
+Provides a way to configure a LookAt for all Folders and Placemarks.
+
+=head1 USAGE
+
+=head1 CONSTRUCTOR
+
+All Folder objects have a LookAt constructor.
+
+ my $object=$document->LookAt(%data);
+ my $object=$folder->LookAt(%data);
+
+=head2 new
+
+=head2 type
+
+Returns the object type.
+
+ my $type=$lookat->type;
+
+
+=cut
+
+sub type {"LookAt"};
+
+=head2 latitude
+
+=cut
+
+sub latitude {
+ my $self=shift;
+ $self->{"latitude"}=shift if @_;
+ return $self->{"latitude"};
+}
+
+=head2 longitude
+
+=cut
+
+sub longitude {
+ my $self=shift;
+ $self->{"longitude"}=shift if @_;
+ return $self->{"longitude"};
+}
+
+=head2 range
+
+=cut
+
+sub range {
+ my $self=shift;
+ $self->{"range"}=shift if @_;
+ return $self->{"range"};
+}
+
+=head2 tilt
+
+=cut
+
+sub tilt {
+ my $self=shift;
+ $self->{"tilt"}=shift if @_;
+ return $self->{"tilt"};
+}
+
+=head2 heading
+
+=cut
+
+sub heading {
+ my $self=shift;
+ $self->{"heading"}=shift if @_;
+ return $self->{"heading"};
+}
+
+=head2 node
+
+Returns the L<XML::LibXML::LazyBuilder> element for the LookAt object.
+
+=cut
+
+sub node {
+ my $self=shift;
+ my @elements=();
+ my %skip=map {$_=>1} qw{document};
+ foreach my $key (sort keys %$self) {
+ next if exists $skip{$key};
+ push @elements, E($key => {}, $self->{$key});
+ }
+ return E(LookAt => {}, @elements);
+}
+
+=head1 BUGS
+
+Please log on RT and send to the geo-perl email list.
+
+=head1 SUPPORT
+
+DavisNetworks.com supports all Perl applications including this package.
+
+=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> creates a GoogleEarth Document.
+
+=cut
+
+1;
diff --git a/lib/Geo/GoogleEarth/Pluggable/NetworkLink.pm b/lib/Geo/GoogleEarth/Pluggable/NetworkLink.pm
index 401af91..a760a51 100644
--- a/lib/Geo/GoogleEarth/Pluggable/NetworkLink.pm
+++ b/lib/Geo/GoogleEarth/Pluggable/NetworkLink.pm
@@ -4,7 +4,7 @@ use XML::LibXML::LazyBuilder qw{E};
use warnings;
use strict;
-our $VERSION='0.09';
+our $VERSION='0.14';
=head1 NAME
@@ -42,14 +42,19 @@ sub type {"NetworkLink"};
sub node {
my $self=shift;
my @element=(E(Snippet=>{maxLines=>scalar(@{$self->Snippet})}, join("\n", @{$self->Snippet})));
+ my @link=();
+ my %link=map {$_=>1} qw{href refreshMode refreshInterval viewRefreshMode viewRefreshTime viewBoundScale viewFormat httpQuery};
foreach my $key (keys %$self) {
next if $key eq "Snippet";
if ($key eq "url") {
- push @element, E(Link=>{}, E(href=>{}, $self->url));
+ push @link, E(href=>{}, $self->url);
+ } elsif(exists $link{$key}) { #these go in the Link element
+ push @link, E($key=>{}, $self->{$key}) unless ref($self->{$key});
} else {
push @element, E($key=>{}, $self->{$key}) unless ref($self->{$key});
}
}
+ push @element, E(Link=>{}, @link) if @link;
return E(NetworkLink=>{}, @element);
}
diff --git a/lib/Geo/GoogleEarth/Pluggable/Placemark.pm b/lib/Geo/GoogleEarth/Pluggable/Placemark.pm
index cfe5f53..79d7c37 100644
--- a/lib/Geo/GoogleEarth/Pluggable/Placemark.pm
+++ b/lib/Geo/GoogleEarth/Pluggable/Placemark.pm
@@ -5,7 +5,7 @@ use warnings;
use Scalar::Util qw{reftype blessed};
use XML::LibXML::LazyBuilder qw{E};
-our $VERSION='0.12';
+our $VERSION='0.14';
=head1 NAME
@@ -91,13 +91,17 @@ sub visibility {
sub node {
my $self=shift;
my @element=();
- push @element, E(name=>{}, $self->name) if defined $self->name;
+ push @element, $self->lookat->node
+ if ref($self->lookat) and $self->lookat->can("node");
+ push @element, E(name=>{}, $self->name)
+ if defined $self->name;
push @element, E(Snippet=>{maxLines=>scalar(@{$self->Snippet})}, join("\n", @{$self->Snippet}));
push @element, E(description=>{}, $self->description)
if defined $self->description;
push @element, E(visibility=>{}, $self->visibility)
if defined $self->visibility;
- push @element, E(styleUrl=>{}, $self->styleUrl) if defined $self->styleUrl;
+ push @element, E(styleUrl=>{}, $self->styleUrl)
+ if defined $self->styleUrl;
push @element, $self->subnode;
return E($self->type=>{}, @element);
}
diff --git a/lib/Geo/GoogleEarth/Pluggable/Plugin/Style.pm b/lib/Geo/GoogleEarth/Pluggable/Plugin/Style.pm
index 929e599..613ba49 100644
--- a/lib/Geo/GoogleEarth/Pluggable/Plugin/Style.pm
+++ b/lib/Geo/GoogleEarth/Pluggable/Plugin/Style.pm
@@ -5,7 +5,7 @@ use Scalar::Util qw{blessed};
use warnings;
use strict;
-our $VERSION='0.09';
+our $VERSION='0.14';
=head1 NAME
@@ -15,7 +15,7 @@ Geo::GoogleEarth::Pluggable::Plugin::Style - Geo::GoogleEarth::Pluggable Style P
use Geo::GoogleEarth::Pluggable;
my $document=Geo::GoogleEarth::Pluggable->new; #ISA L<Geo::GoogleEarth::Pluggable>
- my $style=$document->StyleIcon(color=>{red=>255}); #ISA L<Geo::GoogleEarth::Pluggable::Style>
+ my $style=$document->IconStyle(color=>{red=>255}); #ISA L<Geo::GoogleEarth::Pluggable::Style>
my $point=$document->Point(style=>$style); #ISA L<Geo::GoogleEarth::Pluggable::Contrib::Point>
print $document->render;
@@ -133,10 +133,10 @@ sub PolyStyle {
=head2 LabelStyle
- my $style=$folder->IconStyle(
- color => $color,
- scale => $scale,
- );
+ my $style=$folder->LabelStyle(
+ color => $color,
+ scale => $scale,
+ );
=cut
@@ -149,8 +149,8 @@ sub LabelStyle {
=head2 ListStyle
- my $style=$folder->IconStyle(
- href => $url,
+ my $style=$folder->ListStyle(
+ href => $url,
);
=cut
@@ -175,12 +175,12 @@ Please log on RT and send to the geo-perl email list.
This will construct 100 identical style objects
foreach (1 .. 100) {
- $document->Point(style=>$document->StyleIcon(color=>{red=>255}));
+ $document->Point(style=>$document->IconStyle(color=>{red=>255}));
}
Do this instead
- my $style=$document->StyleIcon(color=>{red=>255});
+ my $style=$document->IconStyle(color=>{red=>255});
foreach (1 .. 100) {
$document->Point(style=>$style);
}
diff --git a/perl-Geo-GoogleEarth-Pluggable.spec b/perl-Geo-GoogleEarth-Pluggable.spec
index 459afec..b382b2d 100644
--- a/perl-Geo-GoogleEarth-Pluggable.spec
+++ b/perl-Geo-GoogleEarth-Pluggable.spec
@@ -1,5 +1,5 @@
Name: perl-Geo-GoogleEarth-Pluggable
-Version: 0.13
+Version: 0.15
Release: 1%{?dist}
Summary: Generates GoogleEarth Documents
License: BSD
@@ -10,12 +10,18 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch: noarch
BuildRequires: perl(ExtUtils::MakeMaker)
BuildRequires: perl(Test::Simple) >= 0.44
+BuildRequires: perl(Archive::Zip)
+BuildRequires: perl(IO::Scalar)
+BuildRequires: perl(Method::Autoload)
+BuildRequires: perl(Module::Pluggable)
+BuildRequires: perl(XML::LibXML::LazyBuilder)
+BuildRequires: perl(Package::New)
Requires: perl(Archive::Zip)
Requires: perl(IO::Scalar)
Requires: perl(Method::Autoload)
Requires: perl(Module::Pluggable)
-Requires: perl(Test::Simple) >= 0.44
Requires: perl(XML::LibXML::LazyBuilder)
+Requires: perl(Package::New)
Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
%description
diff --git a/t/001_load.t b/t/001_load.t
index a4dbfae..8463dfa 100644
--- a/t/001_load.t
+++ b/t/001_load.t
@@ -1,19 +1,19 @@
# -*- perl -*-
-# t/001_load.t - check module loading and create testing directory
-
-use Test::More tests => 15;
+use Test::More tests => 17;
BEGIN { use_ok( 'Geo::GoogleEarth::Pluggable' ); }
my $object = Geo::GoogleEarth::Pluggable->new ();
isa_ok ($object, 'Geo::GoogleEarth::Pluggable');
+BEGIN { use_ok( 'Geo::GoogleEarth::Pluggable::Constructor' ); }
BEGIN { use_ok( 'Geo::GoogleEarth::Pluggable::Base' ); }
BEGIN { use_ok( 'Geo::GoogleEarth::Pluggable::Contrib::LinearRing' ); }
BEGIN { use_ok( 'Geo::GoogleEarth::Pluggable::Contrib::LineString' ); }
BEGIN { use_ok( 'Geo::GoogleEarth::Pluggable::Contrib::Point' ); }
BEGIN { use_ok( 'Geo::GoogleEarth::Pluggable::Folder' ); }
+BEGIN { use_ok( 'Geo::GoogleEarth::Pluggable::LookAt' ); }
BEGIN { use_ok( 'Geo::GoogleEarth::Pluggable::NetworkLink' ); }
BEGIN { use_ok( 'Geo::GoogleEarth::Pluggable::Placemark' ); }
BEGIN { use_ok( 'Geo::GoogleEarth::Pluggable::Plugin::Default' ); }
--
libgeo-googleearth-pluggable-perl Debian packaging
More information about the Pkg-perl-cvs-commits
mailing list