# Copyright (c) 2000-2010 bivio Software, Inc. All rights reserved. # # Visit http://www.bivio.biz for more info. # # This library is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License as # published by the Free Software Foundation; either version 2.1 of the # License, or (at your option) any later version. # # This library 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 # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; If not, you may get a copy from: # http://www.opensource.org/licenses/lgpl-license.html # # $Id: Mock.pm,v 1.7 2010/04/25 17:46:18 nagler Exp $ package Bivio::Agent::t::Mock::Facade::Mock; use strict; use Bivio::Base 'UI.Facade'; our($VERSION) = sprintf('%d.%02d', q$Revision: 1.7 $ =~ /\d+/g); my($_SELF) = __PACKAGE__->new({ clone => undef, is_production => 1, uri => 'task', # So local files are found local_file_prefix => 'petshop', Color => [], Constant => [ [site_realm_id => 1], ], Font => { initialize => sub { my($fc) = @_; $fc->group(default => [ 'family=verdana,arial,helvetica,sans-serif', 'size=small', ]); return; } }, Text => { initialize => sub { my($t) = @_; return; }, }, Task => { initialize => sub { my($t) = @_; $t->group(SITE_ROOT => ['/*']); foreach my $n (qw( CLUB_HOME MY_CLUB_SITE MY_SITE REDIRECT_TEST_1 REDIRECT_TEST_2 REDIRECT_TEST_3 REDIRECT_TEST_4 REDIRECT_TEST_5 REDIRECT_TEST_6 USER_HOME LOGIN )) { $t->group($n => undef); } return; }, }, HTML => { initialize => sub { return; }, }, }); 1;