File Coverage

lib/Games/Sudoku/Component/TkPlayer.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Games::Sudoku::Component::TkPlayer;

use strict;
use warnings;

our $VERSION = '0.02';

use Tk;
use Games::Sudoku::Component::TkPlayer::View;
use Games::Sudoku::Component::TkPlayer::Controller;
use Games::Sudoku::Component::Controller;

sub bootstrap {
  my $self = shift;

  my $view = Games::Sudoku::Component::TkPlayer::View->new(
    mw  => MainWindow->new,
    sdk => Games::Sudoku::Component::Controller->new,
    cmd => Games::Sudoku::Component::TkPlayer::Controller->new,
    ver => $VERSION,
  );

  $view->create;

  MainLoop;

  print "Thank you for playing!\n";
}

1;

__END__