The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Prty::TextFile::Line - Zeile einer Textdatei

BASE CLASS

Prty::Object

DESCRIPTION

Ein Objekt der Klasse repräsentiert eine Textzeile, bestehend aus dem eigentlichen Text und einer Zeilennummer.

METHODS

Konstruktor

new() - Konstruktor

Synopsis

    $ln = $class->new($text,$number);

Description

Instantiiere Zeilenobjekt und liefere eine Referenz auf dieses Objekt zurück.

Accessors

text() - Liefere/Setze Zeilentext

Synopsis

    $text = $ln->text;
    $text = $ln->text($text);
    $text = $ln->text($text,$strip);

Description

Liefere den Zeilentext. Ist ein Argument angegeben, setze den Zeilentext auf den Wert. Ist $strip wahr, entferne Whitespace am Zeilenende. Dadurch werden Zeilen, die nur aus Whitespace bestehen, zu Leerzeilen.

number() - Liefere/Setze Zeilennummer

Synopsis

    $n = $ln->number;
    $n = $ln->number($n);

Methods

append() - Füge Text zu Zeile hinzu

Synopsis

    $ln->append($text);

Description

Füge $text zu Zeile $ln hinzu. Die Methode liefert keinen Wert zurück.

dump() - Liefere externe Repräsentation

Synopsis

    $str = $ln->dump($format);
    $str = $ln->dump;

Description

Erzeuge eine externe Zeilenrepräsentation in Format $format und liefere diese zurück.

Formate

0

Text der Zeile (Default).

1

Text der Zeile mit angehängtem Newline und vorangestellter Zeilennummer im Format:

    NNNN: TEXT

isEmpty() - Test auf Leerzeile

Synopsis

    $bool = $ln->isEmpty;

Description

Liefere "wahr", wenn Zeile eine Leerzeile ist, andernfalls "falsch".

indentation() - Liefere Einrücktiefe der Zeile

Synopsis

    $n = $ln->indentation;

Description

Liefere die Tiefe der Einrückung. Die Einrücktiefe ist die Anzahl an Whitespacezeichen am Anfang der Zeile.

length() - Liefere Zeilenlänge

Synopsis

    $n = $ln->length;

Description

Liefere die Länge der Zeile.

VERSION

1.084

AUTHOR

Frank Seitz, http://fseitz.de/

COPYRIGHT

Copyright (C) 2016 Frank Seitz

LICENSE

This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

1 POD Error

The following errors were encountered while parsing the POD:

Around line 158:

Expected text after =item, not a number