zmughal · August 29, 2015 14:03 · zmughal · Jul 5, 2014
diff --git a/output.txt b/output.txt
 DateTime does stringify
 2014-06-29T21:49:50
 ----
 PDL does not stringify
 0
diff --git a/possible_overload_bug.pl b/possible_overload_bug.pl
 #!/usr/bin/env perl

 use strict;
 use warnings;
 use v5.16;

 use DateTime;
 say "DateTime @{[ does_it_stringify( DateTime->now ) ]} stringify";
 say DateTime->now;

 say "----";

 use PDL;
 say "PDL @{[ does_it_stringify( pdl() ) ]} stringify";
 say pdl();

 sub does_it_stringify {
 	defined overload::Method( $_[0] , '""' ) ? "does" : "does not";
 }
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use v5.16;

	use DateTime;
	say "DateTime @{[ does_it_stringify( DateTime->now ) ]} stringify";
	say DateTime->now;

	say "----";

	use PDL;
	say "PDL @{[ does_it_stringify( pdl() ) ]} stringify";
	say pdl();

	sub does_it_stringify {
	defined overload::Method( $_[0] , '""' ) ? "does" : "does not";
	}