#
# Are you in the situation to do some perl coding sometimes, but your script doesn't work?
# Perhaps this will help you if nothing else does... might also work in other situations ;-)
#
# (C) Thomas Köhler <jean-luc@picard.franken.de>
# 
# Released under GPL
package Prayer;

sub new
{
    my $class = shift;
    my $t=shift;
    my $prayer = "Our Father who art in heaven, Hallowed be thy name. Thy kingdom come. Thy will be done, On earth as it is in heaven. Give us this day our daily bread; And forgive us our debts, As we also have forgiven our debtors; And lead us not into temptation, But deliver us from evil. For Thine is the kingdom and the power and the glory for ever and ever. Amen.\n";
    if(!$t) {
        $t= $prayer;
    }
    my $self = {};
    $self->{'text'} = $t;

    bless ($self,$class);
}

sub print_it
{
    my $self = shift;
    print $self->{'text'};
}

1;