The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Device::Ericsson::AccessoryMenu - allows use of a T68i as a remote control

SYNOPSIS

 my $remote = Device::Ericsson::AccessoryMenu->new;
 $remote->menu( [ 'Remote' => [ pause  => sub { ... },
                                Volume => [ up   => sub { ... },
                                            down => sub { ... },
                                          ],
                              ],
                ] );

 # on Win32, Win32::SerialPort should be equivalent
 my $port = Device::SerialPort->new('/dev/rfcomm0')
    or die "couldn't connect to T68i";
 $remote->port( $port );

 $remote->register_menu;

 while (1) {
     $remote->control;
 }

DEPENDENCIES

This module has external dependencies on the following modules:

 Class::Accessor::Fast
 Test::More

INSTALLATION

 perl Build.PL
 perl Build test

and if all goes well

 perl Build install

HISTORY

What changed over the last 3 revisions

0.6 Wednesday 25th June, 2003
        Rewrote everything to be stateful.  We now have a stack of
        states.  You can enter a new state, or exit and query the
        current state. The current state's handle method will be
        invoked for each line received by ->control

        It is expected that states will be based on, or at least
        implement the interface of Device::Ericsson::AccessoryMenu::State, 
        and that they will be named Device::Ericsson::AccessoryMenu::$state.

        INCOMPATIBLE CHANGE moved send_menu over to Menu->on_enter

        reimplemented send_text as a thin shim around enter_state( 'Text' )

        implemented mouse_move as a similar shim

        worked over examples/remote to be much more functional
0.5 Thursday 14th June, 2003
        Initial CPAN release
=back

AUTHOR

Richard Clamp <richardc@unixbeard.net>

Based on the source of bluexmms by Tom Gilbert.

COPYRIGHT

Copyright (C) 2003, Richard Clamp. All Rights Reserved.

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

SEE ALSO

bluexmms, Romeo, Device::SerialPort

1 POD Error

The following errors were encountered while parsing the POD:

Around line 77:

You forgot a '=back' before '=head1'