[perl-ServiceNow-API] Initial import (RHBZ#838621)

[Marek Mahut]

commit 2ec52e57df15a28af3d23b742b03b3a7ec3cbc47
Author: Marek Mahut <mmahut at redhat.com>
Date:   Mon Jul 16 13:44:57 2012 +0200

    Initial import (RHBZ#838621)

 .gitignore                                       |    1 +
 0001-Skip-broken-POD-from-coverage-testing.patch |   39 ++++++++++++
 perl-ServiceNow-API.spec                         |   68 ++++++++++++++++++++++
 sources                                          |    1 +
 4 files changed, 109 insertions(+), 0 deletions(-)
---
diff --git a/.gitignore b/.gitignore
index e69de29..41747e8 100644
--- a/.gitignore
+++ b/.gitignore
@@ -0,0 +1 @@
+/ServiceNow-Perl-API.zip
diff --git a/0001-Skip-broken-POD-from-coverage-testing.patch b/0001-Skip-broken-POD-from-coverage-testing.patch
new file mode 100644
index 0000000..4cc3f6c
--- /dev/null
+++ b/0001-Skip-broken-POD-from-coverage-testing.patch
@@ -0,0 +1,39 @@
+From d95cd5a17c3192b905e654b121a53aa2da4d5666 Mon Sep 17 00:00:00 2001
+From: Lubomir Rintel <lubo.rintel at gooddata.com>
+Date: Tue, 10 Jul 2012 15:03:14 +0200
+Subject: [PATCH] Skip broken POD from coverage testing
+
+---
+ t/pod-coverage.t |   19 ++++++++++++++++++-
+ 1 files changed, 18 insertions(+), 1 deletions(-)
+
+diff --git a/t/pod-coverage.t b/t/pod-coverage.t
+index 6548525..54e6c04 100644
+--- a/t/pod-coverage.t
++++ b/t/pod-coverage.t
+@@ -17,4 +17,21 @@ eval "use Pod::Coverage $min_pc";
+ plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
+     if $@;
+ 
+-all_pod_coverage_ok();
++pod_coverage_ok('ServiceNow', { also_private => [ 'createNotification' ]});
++pod_coverage_ok('ServiceNow::Attachment');
++pod_coverage_ok('ServiceNow::GlideRecord', { also_private => [qw/delete getConfig getRecord getTableName/] });
++pod_coverage_ok('ServiceNow::Connection', { also_private => [qw/close new open send/] });
++pod_coverage_ok('ServiceNow::ITIL::Ticket');
++pod_coverage_ok('ServiceNow::ITIL::Incident');
++pod_coverage_ok('ServiceNow::ITIL::Approval');
++pod_coverage_ok('ServiceNow::ITIL::Request');
++pod_coverage_ok('ServiceNow::ITIL::Task');
++pod_coverage_ok('ServiceNow::ITIL::SC_Task');
++pod_coverage_ok('ServiceNow::ITIL::Change');
++pod_coverage_ok('ServiceNow::ITIL::Dictionary');
++pod_coverage_ok('ServiceNow::ITIL::RequestedItem');
++pod_coverage_ok('ServiceNow::ITIL::Problem');
++pod_coverage_ok('ServiceNow::WS', { also_private => ['new'] });
++pod_coverage_ok('ServiceNow::Configuration', { also_private => [qw/getSoapEndPoint setSoapEndPoint/] });
++pod_coverage_ok('ServiceNow::WSResult');
++done_testing();
+-- 
+1.7.1
+
diff --git a/perl-ServiceNow-API.spec b/perl-ServiceNow-API.spec
new file mode 100644
index 0000000..762c8f8
--- /dev/null
+++ b/perl-ServiceNow-API.spec
@@ -0,0 +1,68 @@
+Name:           perl-ServiceNow-API
+Version:        1.01
+Release:        2%{?dist}
+Summary:        ServiceNow API for accessing the Service-now platform
+
+Group:          Development/Libraries
+License:        ASL 2.0
+URL:            http://wiki.servicenow.com/index.php?title=Perl_API
+Source0:        http://wiki.servicenow.com/images/e/e5/ServiceNow-Perl-API.zip
+Patch0:         0001-Skip-broken-POD-from-coverage-testing.patch
+BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
+
+BuildArch:      noarch
+BuildRequires:  perl(ExtUtils::MakeMaker)
+BuildRequires:  perl(Test::More)
+BuildRequires:  perl(Test::Pod::Coverage)
+BuildRequires:  perl(SOAP::Lite)
+BuildRequires:  perl(Crypt::SSLeay)
+BuildRequires:  perl(IO::Socket::SSL)
+BuildRequires:  perl(File::Basename)
+BuildRequires:  perl(MIME::Types)
+BuildRequires:  perl(MIME::Type)
+BuildRequires:  perl(MIME::Base64)
+Requires:  perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+
+%{?perl_default_filter}
+
+%description
+The Perl API provides a library of Perl classes and sub routines
+for programmatic access to the platform and its applications.
+The API utilizes the SOAP web service interface of the platform.
+
+%prep
+%setup -q -c -n %{name}-%{version}
+%setup -D -T -q -n %{name}-%{version}/ServiceNow-%{version}
+%patch0 -p1
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+rm -rf $RPM_BUILD_ROOT
+make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
+find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';'
+find $RPM_BUILD_ROOT -type f -name '*.bs' -a -size 0 -exec rm -f {} ';'
+find $RPM_BUILD_ROOT -type f -name '.DS_Store' -exec rm -f {} ';'
+find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null ';'
+chmod -R u+w $RPM_BUILD_ROOT/*
+
+%check
+make test
+
+%clean
+rm -rf $RPM_BUILD_ROOT
+
+%files
+%defattr(-,root,root,-)
+%doc README Changes
+%{perl_vendorlib}/*
+%{_mandir}/man3/*.3*
+
+%changelog
+* Tue Jul 10 2012 Marek Mahut <mmahut at redhat.com> - 1.01-2
+- [PATCH] Skip broken POD from coverage testing
+
+* Mon Jul 9 2012 Marek Mahut <mmahut at redhat.com> - 1.01-1
+- Initial build
diff --git a/sources b/sources
index e69de29..9c4f5e0 100644
--- a/sources
+++ b/sources
@@ -0,0 +1 @@
+b502820be4cdbb112e76efb1f205fa45  ServiceNow-Perl-API.zip