The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

package ExportReader::View::ExportReader;
use base 'XUL::App::View::Base';
use Template::Declare::Tags
    #'HTML' => { namespace => 'html' },  # HTML namespace support
    'XUL';

template main => sub {
    show 'header';  # from XUL::App::View::Base
    window {
        attr {
            id => "exportreader-exportwin",
            xmlns => $::XUL_NAME_SPACE,
            #'xmlns:html' => $::HTML_NAME_SPACE,  # HTML namespace support
            title => 'ExportReader',
            width => 800,
            height => 600,
            persist => 'sizemode screenX screenY width height',
        }
        hbox {
            button { attr { id => 'extract-button', label => 'Extract!' } }
            spacer { attr { flex => 1 } }
        }
        hbox {
            attr { flex => 1 }
            browser {
                attr {
                    id => 'reader-browser',
                    type => 'content',
                    flex => 4,
                    src => 'http://www.google.com/reader',
                }
            }
            splitter {}
            textbox {
                attr {
                    id => 'output-box',
                    multiline => "true",
                    flex => 1,
                }
            }
        }
    }
};

1;