# Copyright (c) 2007 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: Field.bunit,v 1.2 2007/10/22 17:49:57 nagler Exp $ Widget({ class_name => 'Widget.With', view_class_map => 'Widget', }); req()->set_user('demo'); my($mro) = mock('Model.RealmOwner' => {name => undef}); [ [['auth_user'], vs_new(Field => 'name')] => 'demo', [[sub {$mro}], vs_new(Field => 'name', {control_off_value => 'x'})] => 'x', ];