view release on metacpan or  search on metacpan

lib/Acme/Spinodal/Utils.pm  view on Meta::CPAN

package Acme::Spinodal::Utils;

use 5.006;
use strict;
use warnings;

use Scalar::Util qw( looks_like_number );
use Carp qw( croak );

=head1 NAME

Acme::Spinodal::Utils - Some utility functions for me, Spinodal

=head1 VERSION

Version 0.01

lib/Acme/Spinodal/Utils.pm  view on Meta::CPAN

=cut

sub _check_number {
    if( !defined $_[0] ){
        croak( "Argument was undefined!");
    }
    if( ref $_[0]){
         croak( "Expected a scalar, but found ". ref $_[0] );
    }
    
    if( !looks_like_number( $_[0] ) ){
        croak( "[$_[0]] does not appear to be a valid number!" );
    }
    
    return $_[0];
}

=head1 AUTHOR

Michael Wambeek, C<< <mikewambeek at hotmail.co.uk> >>