--- Digest-Hashcash/Hashcash.pm	2015/07/22 10:33:08	1.7
+++ Digest-Hashcash/Hashcash.pm	2015/07/22 12:09:48	1.8
@@ -25,13 +25,14 @@
 use Time::Local;
 use Time::HiRes;
 
-require XSLoader;
-
 no warnings;
 
-$VERSION = 1.1;
+BEGIN {
+   our $VERSION = 1.1;
 
-XSLoader::load Digest::Hashcash, $VERSION;
+   require XSLoader;
+   XSLoader::load Digest::Hashcash, $VERSION;
+}
 
 =item $secs = estimate_time $size
 
@@ -50,26 +51,28 @@
 second on slower (<pentium) machines, but faster machines (1Ghz P3 for
 example) usually handle it within a hundredth of a second or so.
 
-The estimation will be done only once, so you can call this fucntion as
+The estimation will be done only once, so you can call this function as
 often as you like without incuring the overhead everytime.
 
 =cut
 
 my $rounds;
 
-sub _rounds {
-   $rounds ||= &_estimate_rounds();
+sub _rounds() {
+   $rounds ||= _estimate_rounds
 }
 
-sub estimate_time {
+sub estimate_time($) {
    my ($size) = @_;
-   2**$size / &_rounds;
+
+   2**$size / _rounds
 }
 
-sub estimate_size {
+sub estimate_size($$) {
    my ($time, $min) = @_;
-   $time = (log $time * $rounds) / log 2;
-   $time < $min ? $min : int $time;
+
+   $time = (log $time * _rounds) / log 2;
+   $time < $min ? $min : int $time
 }
 
 =item $cipher = new Digest::Hashcash [param => value...]
@@ -143,18 +146,18 @@
    my $self = shift;
    my %arg = (%$self, resource => @_);
 
-   &_gentoken(@arg{qw(size timestamp resource uid extrarand)});
+   &_gentoken (@arg{qw(size timestamp resource uid extrarand)})
 }
 
 sub verify {
    my ($self, $token) = (shift, shift);
    my %arg = (%$self, @_);
 
-   my $prefix = &_prefixlen($token);
+   my $prefix = _prefixlen $token;
 
    $prefix < $arg{size}
       ? undef
-      : $prefix;
+      : $prefix
 }
 
 sub resource {
@@ -163,7 +166,7 @@
    $token =~ /^\d+:\d*:(.*):/
       or return undef;
 
-   return $1;
+   $1
 }
 
 sub timestamp {
@@ -181,7 +184,7 @@
    $M = /\G(\d\d)/gc ? $1 : 0;
    $S = /\G(\d\d)/gc ? $1 : 0;
 
-   return timegm $S, $M, $H, $d, $m - 1, $y;
+   timegm $S, $M, $H, $d, $m - 1, $y
 }
 
 =head1 SEE ALSO