X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FSession.pm;h=774553b5e5eefcb89bd8b192ac9251bc5c805d50;hb=83769a6653a8736141d035a8a963c6cc99970a17;hp=309ff38e601e8fd9bac1959ea399fa63f5dfde82;hpb=1832705643db5a1ca965d83db327dc5c7ec73ad1;p=maypole.git

diff --git a/lib/Maypole/Session.pm b/lib/Maypole/Session.pm
index 309ff38..774553b 100644
--- a/lib/Maypole/Session.pm
+++ b/lib/Maypole/Session.pm
@@ -12,11 +12,16 @@ my $uid = Maypole::Session::generate_unique_id()
 
 =head1 DESCRIPTION
 
-This class provides session related methods for Maypole such as unique id's for requests.
+This class provides session related methods for Maypole such as unique id's for
+requests.
 
-Currently it provides only the generate_unique_id() function, by checking the id's generated by this function and included in submitted forms, it is possible to see if a form has been submitted before.. implementing these checks is left to the developer of that application.
+Currently it provides only the generate_unique_id() function, by checking the
+id's generated by this function and included in submitted forms, it is possible
+to see if a form has been submitted before.. implementing these checks is left
+to the developer of that application.
 
-Further functionality is to be added here in later versions to provide easy access to sessions, either through plugins or builtin methods.
+Further functionality is to be added here in later versions to provide easy
+access to sessions, either through plugins or builtin methods.
 
 =head1 FUNCTIONS
 
@@ -24,7 +29,8 @@ Further functionality is to be added here in later versions to provide easy acce
 
 my $uid = Maypole::Session::generate_unique_id()
 
-generates a unique id and returns it, requires no arguments but accepts size, default is 32.
+generates a unique id and returns it, requires no arguments but accepts size,
+default is 32.
 
 =cut
 
@@ -35,16 +41,18 @@ our $VERSION = 0.01;
 sub generate_unique_id {
     my $length = shift || 32;
     my $id = substr(Digest::MD5::md5_hex(Digest::MD5::md5_hex(time(). {}. rand(). $$)), 0, $length);
-    return;
+    return $id;
 }
 
 
-###################################################################################################
-###################################################################################################
+################################################################################
+################################################################################
 
 =head1 TODO
 
-Currently implementing uniqueness tests of form submissions is left to the Maypole user, we plan to provide an optional default behaviour to automate this if required.
+Currently implementing uniqueness tests of form submissions is left to the
+Maypole user, we plan to provide an optional default behaviour to automate this
+if required.
 
 =head1 SEE ALSO