oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI is now a one-liner ;)

Browse source
This commit is contained in:
Patrick Donelan 2010-03-16 23:26:50 -04:00
parent d858c6e1ab
commit 5d4e0f95d7
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI.pm
View file

@ -28,8 +28,8 @@ use WebGUI::User;
use Moose; use Moose;
use Plack::Request; use Plack::Request;
has root => ( is => 'ro', isa => 'Str', required => 1 ); # e.g. /data/WebGUI has root => ( is => 'ro', isa => 'Str', default => '/data/WebGUI' );
has site => ( is => 'ro', isa => 'Str', required => 1 ); # e.g. dev.localhost.localdomain.conf has site => ( is => 'ro', isa => 'Str', default => 'dev.localhost.localdomain.conf' );
has session => ( is => 'rw', isa => 'WebGUI::Session' ); has session => ( is => 'rw', isa => 'WebGUI::Session' );
has config => ( is => 'rw', isa => 'WebGUI::Config' ); has config => ( is => 'rw', isa => 'WebGUI::Config' );
@ -58,11 +58,11 @@ around BUILDARGS => sub {
my $class = shift; my $class = shift;
# Make constructor work as: # Make constructor work as:
# WebGUI->new( $root, $site ) # WebGUI->new( $site )
# In addition to the more verbose: # In addition to the more verbose:
# WebGUI->new( root => $root, site => $site ) # WebGUI->new( root => $root, site => $site )
if (@_ eq 2) { if (@_ eq 1) {
return $class->$orig(root => $_[0], site => $_[1] ); return $class->$orig(site => $_[0] );
} else { } else {
return $class->$orig(@_); return $class->$orig(@_);
} }
@ -167,4 +167,7 @@ sub dispatch {
return $session->response->finalize; return $session->response->finalize;
} }
1; no Moose;
__PACKAGE__->meta->make_immutable;
1;