use strict;
use warnings;
use File::Slurp;

my $infile = shift or
    die "No input file specified.\n";
my $code = "#line 1 '$infile'\n" . read_file($infile);
#warn $code;

our $XUL_NAME_SPACE = "http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul";

package MyApp::Templates;

BEGIN {
    @::MORE_TAGS = qw(
        window textbox hbox vbox radio radiogroup
        groupbox spacer
    );
}
use Template::Declare::Tags;
use base 'Template::Declare';

eval $code;

package main;

use Template::Declare;

Template::Declare->init( roots => ['MyApp::Templates']);
print <<'EOC';
<?xml version="1.0"?>
<?xml-stylesheet href="chrome://global/skin/" type="text/css"?>
EOC
print Template::Declare->show( 'main');