# Copyright (c) 2005 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: Image.bunit,v 1.5 2010/11/12 00:11:31 moeller Exp $ Widget({ setup_render => sub { shift->put(xhtml => shift->get('object')->unsafe_get('xhtml')); return; }, parse_return => sub { my($case, $actual, $expect) = @_; unless ($expect->[0] =~ />/) { $expect->[0] .= qq{ src="/i/dot.gif" width="1" height="1" />}; } return $actual; }, }); [ dot => 'dot 'none {class => 'bp'}] => 'Powered by bivio Software, Inc.', ['dot', ''] => 'none 'n', alt_text => vs_new('Join', ['image_bunit']), attributes => ' x=y', }] => 'Image.bunit 1, }] => 'dot 0, height => 1, }] => 'dot', ['dot', { width => 1, height => 0, }] => 'dot', ['dot', { width => 2, height => 3, }] => 'dot', ['/i/foo.gif', { width => 2, height => 3, }] => 'none', ['/dot.png', { xhtml => 1, }] => 'dot', ];