| iPodDB documentation | Contained in the iPodDB distribution. |
iPodDB - iPod music database browser
use iPodDB;
iPodDB->new->run;
iPodDB is a WxPerl-based app for browsing music on your iPod.
This is just an alias for Wx's MainLoop().
This is used to initialize the application. It sets a few application parameters and loads up an iPodDB::MainWindow object.
Copyright 2004 by Brian Cassidy
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| iPodDB documentation | Contained in the iPodDB distribution. |
package iPodDB;
use base qw( Wx::App ); use Wx; use strict; use warnings; use iPodDB::MainWindow; our $VERSION = '0.04'; our $APPNAME = 'iPod Database Browser';
sub run { $_[ 0 ]->MainLoop; }
sub OnInit { my $self = shift; $self->SetAppName( $APPNAME ); $self->SetVendorName( 'Brian Cassidy' ); my $main = iPodDB::MainWindow->new; $self->SetTopWindow( $main ); $main->Show( 1 ); return 1; }
1;