use strict;
use warnings;
use Prima qw(Themes);
package Prima::Themes::flat;

sub install
{
	my ( $theme, $install) = @_;
	if ( $install) {
		$::application-> skin($theme);
		return 1;
	} else {
		$::application-> skin('default');
	}
}

Prima::Themes::register( 'Prima::themes::flat', 'classic',  undef, undef, \&install);
Prima::Themes::register( 'Prima::themes::flat', 'flat',     undef, undef, \&install);