Games::Sudoku::Component::TkPlayer - Let's play Sudoku

Games-Sudoku-Component-TkPlayer documentation Contained in the Games-Sudoku-Component-TkPlayer distribution.

Index

Code Index:

NAME

Top

Games::Sudoku::Component::TkPlayer - Let's play Sudoku

SYNOPSIS

Top

    use Games::Sudoku::Component::TkPlayer;
    Games::Sudoku::Component::TkPlayer->bootstrap;

DESCRIPTION

Top

This is a sample application for Games::Sudoku::Component I presented at YAPC::Asia 2006. You usually don't have to bother with internals. Just run "tksudoku.pl" and enjoy!

METHOD

Top

bootstrap

prepares widgets and runs main loop.

SEE ALSO

Top

Tk, Games::Sudoku::Component

AUTHOR

Top

Kenichi Ishigaki, <ishigaki at cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2006 by Kenichi Ishigaki, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Games-Sudoku-Component-TkPlayer documentation Contained in the Games-Sudoku-Component-TkPlayer distribution. 
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__