File Coverage

blib/lib/Wrangler/Wx/App.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Wrangler::Wx::App;

use strict;
use warnings;

use Wx qw(:everything);
use base 'Wx::App';
use Wrangler::Wx::Main;

sub OnInit { # Called from $app automatically
	Wrangler::debug("Wrangler::Wx::App::OnInit");
	return 1;
}

sub create {
	Wrangler::debug("Wrangler::Wx::App::create");

	$_[0]->{wrangler} = $_[1];

	# create the top level window
	return Wrangler::Wx::Main->new($_[0]->{wrangler});
}

## following methods are mostly unused, we might lose them soon
sub wrangler {
	$_[0]->{wrangler};
}

sub config {
	$_[0]->{wrangler}->config;
}

sub main {
	$_[0]->{main};
}

1;

__END__