root/lang/perl/Plusen/trunk/lib/Plusen.pm @ 6705

package Plusen;

use strict;
use warnings;
our $VERSION = '0.01';

use Class::Component;
__PACKAGE__->load_components(qw/ Plaggerize /);

use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw/ script is_exit /);

use Encode ();
use Plusen::Script;

sub new {
    my($class, $args) = @_;
    my $self = $class->NEXT( new => $args );

    $self->script( Plusen::Script->new({ c => $self }) );

    $self->script->$_( Encode::encode('utf8', $self->conf->{meta}->{$_}) ) for qw/ title author email /;
    $self->is_exit(0);

    $self;
}

sub bootstrap {
    my $class = shift;
    my $self  = $class->new( @_ );

    $self->run_hook('script.load');
    $self->run_hook('device.init');

    $self->script->top;

    $self->event_loop;

    $self;
}

sub event_loop {
    my $self = shift;
    while (!$self->is_exit) {
        $self->run_hook('device.read');
        sleep 0.2;
    }
}

1;
__END__

=head1 NAME

Plusen - pluggable presentation framework

=head1 SYNOPSIS

  use Plusen;

=head1 DESCRIPTION

Plusen is

=head1 AUTHOR

Kazuhiro Osawa E<lt>ko@yappo.ne.jpE<gt>

=head1 SEE ALSO

=head1 EXAMPLE

L<http://svn.coderepos.org/share/docs/yappo/devsumi2008/devsumi2008.pl>,
L<http://svn.coderepos.org/share/docs/yappo/devsumi2008/devsumi2008.yaml>,

=head1 LICENSE

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

=cut