#!/opt/perl5/bin/perl -w
use strict;
use Simran::Log::Log;
use Simran::Error::Error;

my $x=5;my $y=4;
my $logfile="/home/tstanley/Logfile";
my $syslogger=Simran::Log::Log->new($logfile);
my $errlogger=Simran::Error::Error->new();
$errlogger->clear();

if($y<$x){
  $errlogger->set("Y is smaller than X");
  $syslogger->write("Y is smaller than X");
}

my @ERR=$errlogger->msg();
my $ERRMSG=$errlogger->msg();

print "Error is: @ERR\n";
print "Error is: $ERRMSG\n";

my $msg=$syslogger->error();
print "Message is $msg\n";

##</code><code>##

Error

Description

    If called in an array context, returns the complete history of error messages thus far. Else, returns the latest error message if set.

      $errmsg = $session->error();

                    or

      foreach($session->error()){
         print “Error: $_\n”;
      }

##</code><code>##

sub error {
  my $self = shift;
  return $error->msg();
}

##</code><code>##

sub msg {
  my $self = shift;

  if (wantarray) {
    return @{$self->{"HISTORY"}};
  }
  return $self->{"ERROR"};
}