Changeset 29945

Timestamp:

02/12/09 13:56:01 (4 years ago)

Author:

yappo

Message:

use Scalar::Util

Files:

• lang/perl/HTTP-Engine-Middleware/trunk/t/200_middlewares/profile-runtime.t (modified) (2 diffs)

lang/perl/HTTP-Engine-Middleware/trunk/t/200_middlewares/profile-runtime.t

@@ -12 +12 @@
 use HTTP::Engine::Response;
 use HTTP::Request;
+use Scalar::Util 'looks_like_number';
 
 my $mw = HTTP::Engine::Middleware->new;
@@ -40 +41 @@
 is $out, 'ok', 'response content';
 like $res->header('X-Runtime'), qr/^\d+\.\d+$/, 'X-Runtime header';
-
-
-# copied from Scalar::Util
-sub looks_like_number {
-  local $_ = shift;
-
-  # checks from perlfaq4
-  return 0 if !defined($_) or ref($_);
-  return 1 if (/^[+-]?\d+$/); # is a +/- integer
-  return 1 if (/^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/); # a C float
-  return 1 if ($] >= 5.008 and /^(Inf(inity)?|NaN)$/i) or ($] >= 5.006001 and /^Inf$/i);
-
-  0;
-}