Mocking IO - module
examples/mocking_io/MyModule1.pm
package MyModule1; use strict; use warnings; sub game { print("Enter your name: "); my $name = <STDIN>; chomp $name; print("Hello '$name'\n"); return; } 42;
package MyModule1; use strict; use warnings; sub game { print("Enter your name: "); my $name = <STDIN>; chomp $name; print("Hello '$name'\n"); return; } 42;