Fault::Notepad - A notepad for random text messages.

Fault documentation Contained in the Fault distribution.

Index

Code Index:

NAME

Top

 Fault::Notepad - A notepad for random text messages.

SYNOPSIS

Top

 use Fault::Notepad;
 $obj  = Fault::Notepad->new;
 $obj  = $obj->add       ($text);
 $obj  = $obj->addObject ($msg);
 $obj  = $obj->merge     ($obj2);
 $obj  = $obj->print;
 $cnt  = $obj->count;
 $obj  = $obj->fprint    ($fh);
 $str  = $obj->sprint;

Inheritance

Top

 UNIVERSAL

Description

Top

A notepad is a container for random text messages. Notes are added to a list in the sequence recieved and once written are not modifiable.

This is a very early form of the class and it does very little at present other than append Fault::Msg objects to it's internal list and dump text from them on demand.

It is a container for text generated deep in a program which will allow it to be collected and returned to the top level or wherever it may be useful.

Examples

Top

 use Fault::Notepad;
 use Fault::Msg;
 my $obj  = Fault::Notepad->new;
 my $obj2 = Fault::Notepad->new;
 my $msg  = Fault::Msg->("abridging freedom of speech...\n");

         $obj->add        ("Congress shall pass no law ");
         $obj2->addObject ($msg);
         $obj->merge      ($obj2);
         $obj->print;

         open $fh, ">notepad.tmp";
         $obj->fprint     ($fh);
         close $fh;

Class Variables

Top

 None.

Instance Variables

Top

 None.

Class Methods

Top

$obj = Fault::Notepad->new

Create instances of Notepad.

Instance Methods

Top

$obj = $obj->add ($note)

Append a textual note to the notepad.

$obj = $obj->add ($obj)

Append an Fault::Msg object containing a textual note to the notepad. the current time; if the object has digital signatures, create one.

$cnt = $obj->count

Returns a count of the items on the notepad.

$obj = $obj->fprint ($fh)

Print contents of Notepad verbatim to file.

$obj = $obj->merge ($other)

Append the contents of the argument notepad object to this notepad.

$obj = $obj->print

Print contents of Notepad verbatim to stdout.

$str = $obj->sprint

Print contents of Notepad verbatim to a string.

Private Class Method

Top

 None.

Private Instance Methods

Top

 None.

Errors and Warnings

Top

 None.

KNOWN BUGS

Top

 See TODO.

SEE ALSO

Top

 Fault::Logger, Fault::Msg.

AUTHOR

Top

Dale Amon <amon@vnl.com>

Fault documentation Contained in the Fault distribution. 
#=============================== Notepad.pm ==================================
# Filename:  	       Notepad.pm
# Description:         A notepad for random text messages.
# Original Author:     Dale M. Amon
# Revised by:          $Author: amon $ 
# Date:                $Date: 2008-08-28 23:20:19 $ 
# Version:             $Revision: 1.7 $
# License:	       LGPL 2.1, Perl Artistic or BSD
#
#=============================================================================
use strict;
use Fault::Msg;
use Fault::Logger;

package Fault::Notepad;
use vars qw{@ISA};
@ISA = qw( UNIVERSAL );

#=============================================================================
#                          CLASS METHODS                                    
#=============================================================================

sub new ($) {
  my ($class)       = @_;
  my $self          = bless {}, $class;
  $self->{'notes'}  = [];
  return $self;
}

#=============================================================================
#                          INSTANCE METHODS                                 
#=============================================================================

sub add ($$) {
  my ($s,$n) = @_; 

  if ($::DEBUG) {Fault::Logger->arg_check_noref ($n,"Textline") or return $s;}

  push @{$s->{'notes'}}, Fault::Msg->new ($n,'NOTE','info');
  return $s;
}

#-----------------------------------------------------------------------------

sub addObject ($$) {
  my ($s,$msg) = @_; 

  if ($::DEBUG) {Fault::Logger->arg_check_isa ($msg,"Fault::Msg") 
      or return $s;}

  push @{$s->{'notes'}}, $msg;
  return $s;
}

#-----------------------------------------------------------------------------

sub merge ($$) {
  my ($s,$s2) = @_;

  if ($::DEBUG) {
    Fault::Logger->arg_check_isa ($s2,"Notepad","notepad2") or return $s;
  }
  push @{$s->{'notes'}}, @{$s2->{'notes'}};
  return $s;
}

#-----------------------------------------------------------------------------

sub count ($) {my ($s) = @_; $#{$s->{'notes'}}+1;}

sub print ($) {shift->fprint (*STDOUT);}

sub fprint ($\*) {
  my ($s,$fh) = @_; foreach (@{$s->{'notes'}}) {print $fh $_->msg . "\n";} $s;}

sub sprint ($) {
  my ($s) = @_; my $str=""; 
  foreach (@{$s->{'notes'}}) {$str .= sprintf $_->msg . "\n";} $str;}

#=============================================================================
#                          POD DOCUMENTATION                                
#=============================================================================
# You may extract and format the documention section with the 'perldoc' cmd.



#=============================================================================
#                                CVS HISTORY
#=============================================================================
# $Log: Notepad.pm,v $
# Revision 1.7  2008-08-28 23:20:19  amon
# perldoc section regularization.
#
# Revision 1.6  2008-08-17 21:56:37  amon
# Make all titles fit CPAN standard.
#
# Revision 1.5  2008-07-28 10:57:37  amon
# Dropped last of tsag/dsig; new addObject method; sprint bugfix; newlines added to prints.
#
# Revision 1.4  2008-07-24 21:17:24  amon
# Moved all todo notes to elsewhere; made Stderr the default delegate instead 
# of Stdout.
#
# Revision 1.3  2008-07-24 19:27:51  amon
# Fix edit error in Notepad.
#
# Revision 1.2  2008-07-24 19:11:29  amon
# Notepad now uses Fault::Msg class which moves all the timestamp and 
# digitalsig issues to Msg.
#
# Revision 1.1  2008-07-22 14:32:17  amon
# Added Notepad and Delegate::Stderr classes
#
# 20080715  Dale Amon <amon@vnl.com>
#	    Created.
1;