String::isComparable::WithNum - It's a test implement to
ignore the difference between <=> and cmp
use String::isComparable::WithNum;
my $str = String::isComparable::WithNum->new( value => 'strings' );
say q|Succeeded in comparing with strings by 'eq'| if $str eq 'strings';
say q|Succeeded in comparing with Int by 'eq'| if $str eq 100;
say q|Succeeded in comparing with Int by '=='| if $str == 100;
say q|Succeeded in comparing with strings by '=='| if $str == 'strings';
I have solved The Issue#1
Copyright (C) worthmine.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
worthmine [email protected]