Triviales Gestaltungselement für Text

lib/VShop/Element/Text.pm

package VShop::Element::Text; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); sub new { my ($package, %parameters) = @_; my $self = {params => \%parameters, text => ""}; return bless $self, $package; } sub add { my ($self, $text) = @_; $self->{text} .= "\n" . $text; } sub gen { my ($self, $out) = @_; print $out $self->{text}; } 1;