File strip-dummy-provides.diff of Package perl-POE-Test-Loops
--- lib/POE/Test/Loops/ses_nfa.pm
+++ lib/POE/Test/Loops/ses_nfa.pm
@@ -38,7 +38,8 @@
### This goes in its own package because POE::Session and POE::NFA
### export conflicting constants.
-package Switch;
+package # split to avoid CPAN indexer
+Switch;
{
$Switch::VERSION = '1.350';
}
@@ -143,7 +144,8 @@
### observer who pushes the light's button over and over, watching it
### as it goes on and off.
-package Operator;
+package # split to avoid CPAN indexer
+Operator;
{
$Operator::VERSION = '1.350';
}
@@ -182,7 +184,8 @@
### This is a Fibonacci number servlet. Post it a request with the F
### number you want, and it calculates and returns it.
-package FibServer;
+package # split to avoid CPAN indexer
+FibServer;
{
$FibServer::VERSION = '1.350';
}
@@ -242,7 +245,8 @@
### This is a Fibonacci client. It asks for F numbers and checks the
### responses vs. expectations.
-package FibClient;
+package # split to avoid CPAN indexer
+FibClient;
{
$FibClient::VERSION = '1.350';
}
--- lib/POE/Test/Loops/ses_session.pm
+++ lib/POE/Test/Loops/ses_session.pm
@@ -229,7 +229,8 @@
#------------------------------------------------------------------------------
# Unmapped package session.
-package UnmappedPackage;
+package # split to avoid CPAN indexer
+UnmappedPackage;
{
$UnmappedPackage::VERSION = '1.350';
}
@@ -253,7 +254,8 @@
#------------------------------------------------------------------------------
# Unmapped object session.
-package UnmappedObject;
+package # split to avoid CPAN indexer
+UnmappedObject;
{
$UnmappedObject::VERSION = '1.350';
}
@@ -280,7 +282,8 @@
#------------------------------------------------------------------------------
# Unmapped package session.
-package MappedPackage;
+package # split to avoid CPAN indexer
+MappedPackage;
{
$MappedPackage::VERSION = '1.350';
}
@@ -304,7 +307,8 @@
#------------------------------------------------------------------------------
# Unmapped object session.
-package MappedObject;
+package # split to avoid CPAN indexer
+MappedObject;
{
$MappedObject::VERSION = '1.350';
}