# Perl 6 example use v6; say "Hello world from Perl 6!";

EXAMPLE $self->SetFocus;

return $self;
}

package Perl6EditorApp;

use strict; use warnings; use Wx; use base 'Wx::App';

sub OnInit { my $self = shift;

my $frame = Wx::Frame->new(undef, -1, 'Perl 6 Editor!');
my $editor = Editor::Perl6->new($frame);
$frame->Show(1);
return 1;
}

# Create the application object, and pass control to it. package main; my $app = Perl6EditorApp->new; $app->MainLoop;