Skip to content
Browse files

r27585@knight: rjbs | 2006-11-06 18:33:04 -0500

 kwalitee
  • Loading branch information...
1 parent ee5e59c commit 40ba5120ff692fbf1b92fd63cf9c746942e3cc0d @rjbs committed Nov 7, 2006
View
3 Changes
@@ -1,5 +1,8 @@
Revision history for Number::Tolerant
+1.556 2006-06-11
+ perl critic, and other minor format/packaging changes
+
1.555 2006-06-11
use Sub::Exporter to export
View
10 lib/Number/Tolerant.pm
@@ -1,10 +1,10 @@
-package Number::Tolerant;
-use base qw(Exporter);
-
use strict;
use warnings;
-our $VERSION = "1.555";
+package Number::Tolerant;
+use base qw(Exporter);
+
+our $VERSION = "1.556";
use Sub::Exporter::Util;
use Sub::Exporter -setup => {
@@ -118,6 +118,7 @@ sub enable_plugin {
# XXX: there has to be a better test to use here -- rjbs, 2006-01-27
unless (eval { $plugin->can('construct') }) {
+ ## no critic (StringyEval)
eval "require $plugin" or die $@;
}
@@ -240,6 +241,7 @@ sub numify {
# if a tolerance has equal min and max, it numifies to that number
return $_[0]{min}
if $_[0]{min} and $_[0]{max} and $_[0]{min} == $_[0]{max};
+ ## no critic (ReturnUndef)
return undef;
}
View
6 lib/Number/Tolerant/Constant.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Constant;
-our $VERSION = "1.550";
-
use strict;
use warnings;
+package Number::Tolerant::Constant;
+our $VERSION = "1.550";
+
=head1 NAME
Number::Tolerant::Constant - a blessed constant type
View
6 lib/Number/Tolerant/Type.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Type;
-use base qw(Number::Tolerant);
-
use strict;
use warnings;
+package Number::Tolerant::Type;
+use base qw(Number::Tolerant);
+
our $VERSION = "1.550";
=head1 NAME
View
6 lib/Number/Tolerant/Type/constant.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Type::constant;
-use base qw(Number::Tolerant::Type);
-
use strict;
use warnings;
+package Number::Tolerant::Type::constant;
+use base qw(Number::Tolerant::Type);
+
our $VERSION = '1.550';
sub construct { shift; $_[0] }
View
6 lib/Number/Tolerant/Type/infinite.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Type::infinite;
-use base qw(Number::Tolerant::Type);
-
use strict;
use warnings;
+package Number::Tolerant::Type::infinite;
+use base qw(Number::Tolerant::Type);
+
our $VERSION = '1.550';
sub construct { shift; { value => 0 } }
View
6 lib/Number/Tolerant/Type/less_than.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Type::less_than;
-use base qw(Number::Tolerant::Type);
-
use strict;
use warnings;
+package Number::Tolerant::Type::less_than;
+use base qw(Number::Tolerant::Type);
+
our $VERSION = '1.550';
sub construct { shift; { value => $_[0], max => $_[0], exclude_max => 1 } }
View
6 lib/Number/Tolerant/Type/more_than.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Type::more_than;
-use base qw(Number::Tolerant::Type);
-
use strict;
use warnings;
+package Number::Tolerant::Type::more_than;
+use base qw(Number::Tolerant::Type);
+
our $VERSION = '1.550';
sub construct { shift; { value => $_[0], min => $_[0], exclude_min => 1 } }
View
6 lib/Number/Tolerant/Type/offset.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Type::offset;
-use base qw(Number::Tolerant::Type);
-
use strict;
use warnings;
+package Number::Tolerant::Type::offset;
+use base qw(Number::Tolerant::Type);
+
our $VERSION = '1.550';
sub construct { shift;
View
6 lib/Number/Tolerant/Type/or_less.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Type::or_less;
-use base qw(Number::Tolerant::Type);
-
use strict;
use warnings;
+package Number::Tolerant::Type::or_less;
+use base qw(Number::Tolerant::Type);
+
our $VERSION = '1.550';
sub construct { shift; { value => $_[0], max => $_[0] } }
View
6 lib/Number/Tolerant/Type/or_more.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Type::or_more;
-use base qw(Number::Tolerant::Type);
-
use strict;
use warnings;
+package Number::Tolerant::Type::or_more;
+use base qw(Number::Tolerant::Type);
+
our $VERSION = '1.550';
sub construct { shift; { value => $_[0], min => $_[0] } }
View
6 lib/Number/Tolerant/Type/plus_or_minus.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Type::plus_or_minus;
-use base qw(Number::Tolerant::Type);
-
use strict;
use warnings;
+package Number::Tolerant::Type::plus_or_minus;
+use base qw(Number::Tolerant::Type);
+
our $VERSION = '1.550';
sub construct { shift;
View
6 lib/Number/Tolerant/Type/plus_or_minus_pct.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Type::plus_or_minus_pct;
-use base qw(Number::Tolerant::Type);
-
use strict;
use warnings;
+package Number::Tolerant::Type::plus_or_minus_pct;
+use base qw(Number::Tolerant::Type);
+
our $VERSION = '1.550';
sub construct { shift;
View
6 lib/Number/Tolerant/Type/to.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Type::to;
-use base qw(Number::Tolerant::Type);
-
use strict;
use warnings;
+package Number::Tolerant::Type::to;
+use base qw(Number::Tolerant::Type);
+
our $VERSION = '1.550';
sub construct { shift;
View
6 lib/Number/Tolerant/Union.pm
@@ -1,9 +1,9 @@
-package Number::Tolerant::Union;
-our $VERSION = "1.42";
-
use strict;
use warnings;
+package Number::Tolerant::Union;
+our $VERSION = "1.42";
+
=head1 NAME
Number::Tolerant::Union - unions of tolerance ranges

0 comments on commit 40ba512

Please sign in to comment.
Something went wrong with that request. Please try again.