# This code was forked from the LiveJournal project owned and operated # by Live Journal, Inc. The code has been modified and expanded by # Dreamwidth Studios, LLC. These files were originally licensed under # the terms of the license supplied by Live Journal, Inc, which can # currently be found at: # # http://code.livejournal.org/trac/livejournal/browser/trunk/LICENSE-LiveJournal.txt # # In accordance with the original license, this code and all its # modifications are provided under the GNU General Public License. # A copy of that license can be found in the LICENSE file included as # part of this distribution. package LJ::Widget::ExampleRenderWidget; use strict; use base qw(LJ::Widget); use Carp qw(croak); #sub need_res { qw( stc/widgets/examplerenderwidget.css ) } sub render_body { my $class = shift; my %opts = @_; my $ret; $ret .= "This widget just renders something.
"; $ret .= "Call it with: LJ::Widget::ExampleRenderWidget->render( word => 'foo' );
"; $ret .= "The word you passed in was: $opts{word}"; return $ret; } 1;