add version numbers to versionless modules
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 29 May 2008 20:28:58 +0000 (20:28 +0000)
committerMischa POSLAWSKY <perl@shiar.org>
Sat, 31 May 2008 19:47:25 +0000 (19:47 +0000)
Changes
lib/PLP/Fields.pm
lib/PLP/Functions.pm
lib/PLP/Tie/Delay.pm
lib/PLP/Tie/Headers.pm
lib/PLP/Tie/Print.pm

diff --git a/Changes b/Changes
index f02aa3270260960387679da7d417b3522541a812..78da9d14c019e9a9f56c6e204ebabbc18085f2d7 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,4 @@
-- All modules use warnings
+- All modules use warnings and contain a $VERSION
 - Fix META.yml syntax
 
 3.20 - May 29, 2008:
index 01f3baf964ee41661c12f4dbd6bd4ae05fc0a48d..cd68e3655d6abf6d20c164d89fbcb8fed82383dc 100644 (file)
@@ -3,6 +3,8 @@ package PLP::Fields;
 use strict;
 use warnings;
 
+our $VERSION = '1.00';
+
 # Has only one function: doit(), which ties the hashes %get, %post, %fields
 # and %header in PLP::Script. Also generates %cookie immediately.
 sub doit {
index 18318ad7b0bacbdf643f0037fee5f202abb84ea2..90ff741453c213954362315a335d5579c1446515 100644 (file)
@@ -6,6 +6,7 @@ use warnings;
 use Exporter qw(import);
 use Fcntl qw(:flock);
 
+our $VERSION = '1.00';
 our @EXPORT = qw/Entity DecodeURI EncodeURI Include include PLP_END
                  AddCookie ReadFile WriteFile AutoURL Counter exit/;
 
index 8be53afae7257045dec7189b853f808ad03cdfe1..0a2a0d5f58801d81c666c47dfd9684c906dac9c9 100644 (file)
@@ -4,6 +4,8 @@ use strict;
 no strict 'refs';
 use warnings;
 
+our $VERSION = '1.00';
+
 =head1 PLP::Tie::Delay
 
 Delays hash generation. Unties the hash on first access, and replaces it by the generated one.
index ef124912f886e4681e1873a1e09fdb5ab51f342e..c675f8a128d7f8420caeb00ab6b296117bef71cb 100644 (file)
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 use Carp;
 
+our $VERSION = '1.00';
+
 =head1 PLP::Tie::Headers
 
 Makes a hash case insensitive, and sets some headers. <_> equals <->, so C<$foo{CONTENT_TYPE}> is
index a2d22dd25c2a1c189c2b890576529ab60e5da437..85788afb55e914d892caf466a73b60f42d8f885a 100644 (file)
@@ -3,6 +3,8 @@ package PLP::Tie::Print;
 use strict;
 use warnings;
 
+our $VERSION = '1.00';
+
 =head1 PLP::Tie::Print
 
 Just prints to stdout, but sends headers if not sent before.