Your IP : 216.73.217.90

Current Path : /proc/self/root/proc/thread-self/root/proc/self/root/usr/share/perl5/vendor_perl/Spellunker/
Upload File :
Current File : //proc/self/root/proc/thread-self/root/proc/self/root/usr/share/perl5/vendor_perl/Spellunker/CLI.pm

package Spellunker::CLI;
use strict;
use warnings;
use utf8;

use Spellunker;

sub new {
    my $class = shift;
    bless {}, $class;
}

sub run {
    my $self = shift;

    my $engine = Spellunker->new();
    while (<>) {
        my @words = $engine->check_line($_);
        print "Bad: $_ at line $.\n" for @words;
    }
}

1;