PerlForms Code

#
# Copyright 2008 Samuel Borsutzky
#
# This file is part of PerlForms.
#
# PerlForms is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# PerlForms is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with PerlForms.  If not, see <http://www.gnu.org/licenses/>.
#
#
#

package PerlForms::UI;

use strict;
use base qw(PerlForms PerlForms::TextFormatter);

sub app {
    my$self=shift;
    
    unless(defined $self->{app}) {
        if(defined $self->{req} and defined $self->{req}->{app}) {
            $self->{app}=$self->{req}->{app};
        }
    }
    
    $self->{app}
}



package Main;

1;