/usr/local/CPAN/Acme-Monkey/Acme/Monkey/ClearScreen.pm

• package Acme::Monkey::ClearScreen
  • clear_screen
• EOF

package Acme::Monkey::ClearScreen;

use Moose;
use Readonly;

Readonly my %OS_COMMANDS => (
    linux   => 'clear',
    MSWin32 => 'cls',
);

Readonly my $COMMAND => $OS_COMMANDS{$^O};

sub clear_screen {
    system( $COMMAND );
}

1;