From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DJERIUS / Data-Record-Serialize-2.01 / t / lib / My / Test / Util.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

              
package My::Test::Util;
use Exporter::Shiny qw( is_string is_number $have_Convert_Scalar);
our $have_Convert_Scalar = eval { require Convert::Scalar; };
sub is_string {
    Convert::Scalar::pok( $_[0] );
}
sub is_number {
    Convert::Scalar::niok( $_[0] );
}
1;