|
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; |
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |