view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Log::Logperl::Tiny;
use Log::Logperl::Warn::Multiple::EasyInit::ta;
use Log::LTSV::Instance;
use Log::Message;
use Log::Message::JSON;
use Log::Message::Simple;
use Log::Message::Structured;
use Log::Message::Structured::Stringify::AsSereal;
use Log::Minimal;
use Log::Minimal::Indent;
use Log::Minimal::Instance;
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
if 0
Log-Message-Simple-0.10
pathname: B/BI/BINGOS/Log-Message-Simple-0.10.tar.gz
provides:
Log::Message::Handlers 0.10
Log::Message::Simple 0.10
requirements:
Carp 0
ExtUtils::MakeMaker 0
Log::Message 0
Test::More 0
cpanfile.snapshot view on Meta::CPAN
Term::UI 0.46
Term::UI::History 0.46
requirements:
ExtUtils::MakeMaker 0
Locale::Maketext::Simple 0
Log::Message::Simple 0
Params::Check 0
Term::ReadLine 0
Test::More 0.31
if 0
TermReadKey-2.33
view release on metacpan or search on metacpan
lib/App/SmokeBrew/Plugin/BINGOS.pm view on Meta::CPAN
Compress::Raw::Zlib
Compress::Zlib
ExtUtils::CBuilder
ExtUtils::ParseXS
ExtUtils::Manifest
Log::Message::Simple
Test::Reporter::Transport::Socket
CPANPLUS::YACSmoke
);
$_->install() for map { $su->modules_for_feature( $_ ) } qw(prefer_makefile md5 storable cpantest);
}
view release on metacpan or search on metacpan
inc/bundle/Log/Message/Simple.pm view on Meta::CPAN
package Log::Message::Simple;
use if $] > 5.017, 'deprecate';
use strict;
use Log::Message private => 0;;
inc/bundle/Log/Message/Simple.pm view on Meta::CPAN
=pod
=head1 NAME
Log::Message::Simple - Simplified interface to Log::Message
=head1 SYNOPSIS
use Log::Message::Simple qw[msg error debug
carp croak cluck confess];
use Log::Message::Simple qw[:STD :CARP];
### standard reporting functionality
msg( "Connecting to database", $verbose );
error( "Database connection failed: $@", $verbose );
debug( "Connection arguments were: $args", $debug );
inc/bundle/Log/Message/Simple.pm view on Meta::CPAN
croak( "Fatal: wrong arguments passed: @_" );
cluck( "Wrong arguments passed -- including stacktrace: @_" );
confess("Fatal: wrong arguments passed -- including stacktrace: @_" );
### retrieve individual message
my @stack = Log::Message::Simple->stack;
my @stack = Log::Message::Simple->flush;
### retrieve the entire stack in printable form
my $msgs = Log::Message::Simple->stack_as_string;
my $trace = Log::Message::Simple->stack_as_string(1);
### redirect output
local $Log::Message::Simple::MSG_FH = \*STDERR;
local $Log::Message::Simple::ERROR_FH = \*STDERR;
local $Log::Message::Simple::DEBUG_FH = \*STDERR;
### force a stacktrace on error
local $Log::Message::Simple::STACKTRACE_ON_ERROR = 1
=head1 DESCRIPTION
This module provides standardized logging facilities using the
C<Log::Message> module.
inc/bundle/Log/Message/Simple.pm view on Meta::CPAN
my $verbose = shift || 0;
### so you don't want us to print the msg? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::MSG_FH;
print '['. $self->tag (). '] ' . $self->message . "\n";
select $old_fh;
return;
}
inc/bundle/Log/Message/Simple.pm view on Meta::CPAN
my $verbose = shift || 0;
### so you don't want us to print the msg? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::DEBUG_FH;
print '['. $self->tag (). '] ' . $self->message . "\n";
select $old_fh;
return;
}
inc/bundle/Log/Message/Simple.pm view on Meta::CPAN
$verbose = 1 unless defined $verbose; # default to true
### so you don't want us to print the error? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::ERROR_FH;
my $msg = '['. $self->tag . '] ' . $self->message;
print $Log::Message::Simple::STACKTRACE_ON_ERROR
? Carp::shortmess($msg)
: $msg . "\n";
select $old_fh;
inc/bundle/Log/Message/Simple.pm view on Meta::CPAN
Exported by using the C<:CARP> tag.
=head1 CLASS METHODS
=head2 Log::Message::Simple->stack()
Retrieves all the items on the stack. Since C<Log::Message::Simple> is
implemented using C<Log::Message>, consult its manpage for the
function C<retrieve> to see what is returned and how to use the items.
=head2 Log::Message::Simple->stack_as_string([TRACE])
Returns the whole stack as a printable string. If the C<TRACE> option is
true all items are returned with C<Carp::longmess> output, rather than
just the message.
C<TRACE> defaults to false.
=head2 Log::Message::Simple->flush()
Removes all the items from the stack and returns them. Since
C<Log::Message::Simple> is implemented using C<Log::Message>, consult its
manpage for the function C<retrieve> to see what is returned and how
to use the items.
=cut
view release on metacpan or search on metacpan
lib/Convert/MRC.pm view on Meta::CPAN
use warnings;
use Data::Dumper;
use Carp;
use English qw(-no_match_vars);
use Log::Message::Simple qw (:STD);
#import global constants used in processing
use Convert::MRC::Variables;
# ABSTRACT: CONVERT MRC TO TBX-BASIC
lib/Convert/MRC.pm view on Meta::CPAN
}
}
return $application->{log_fh};
}
#same thing as Log::Message::Simple::error, but verbose is always off.
sub _error {
my ($msg) = @_;
error $msg, 0;
return;
}
lib/Convert/MRC.pm view on Meta::CPAN
delete $self->{unsortedTerm};
delete $self->{party};
delete $self->{langSetDefined};
#print all messages to the object's log
$self->_log( Log::Message::Simple->stack_as_string() );
Log::Message::Simple->flush();
select $select;
# user's responsibility to close the various filehandles
return;
view release on metacpan or search on metacpan
Notes/cpan-namespaces/cpan-namespaces-L1-L3.txt view on Meta::CPAN
Log::Message
Log::Message::Config
Log::Message::Handlers
Log::Message::Item
Log::Message::JSON
Log::Message::Simple
Log::Message::Structured
Log::Mini
Log::Mini::LoggerBase
Log::Mini::LoggerFILE
Log::Mini::LoggerNULL
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
if 0
Log-Message-Simple-0.10
pathname: B/BI/BINGOS/Log-Message-Simple-0.10.tar.gz
provides:
Log::Message::Handlers 0.10
Log::Message::Simple 0.10
requirements:
Carp 0
ExtUtils::MakeMaker 0
Log::Message 0
Test::More 0
cpanfile.snapshot view on Meta::CPAN
Term::UI 0.42
Term::UI::History 0.42
requirements:
ExtUtils::MakeMaker 0
Locale::Maketext::Simple 0
Log::Message::Simple 0
Params::Check 0
Term::ReadLine 0
Test::More 0.31
if 0
TermReadKey-2.32
view release on metacpan or search on metacpan
lib/Log/Message/Simple.pm view on Meta::CPAN
package Log::Message::Simple;
use if $] > 5.017, 'deprecate';
use strict;
use Log::Message private => 0;;
lib/Log/Message/Simple.pm view on Meta::CPAN
=pod
=head1 NAME
Log::Message::Simple - Simplified interface to Log::Message
=head1 SYNOPSIS
use Log::Message::Simple qw[msg error debug
carp croak cluck confess];
use Log::Message::Simple qw[:STD :CARP];
### standard reporting functionality
msg( "Connecting to database", $verbose );
error( "Database connection failed: $@", $verbose );
debug( "Connection arguments were: $args", $debug );
lib/Log/Message/Simple.pm view on Meta::CPAN
croak( "Fatal: wrong arguments passed: @_" );
cluck( "Wrong arguments passed -- including stacktrace: @_" );
confess("Fatal: wrong arguments passed -- including stacktrace: @_" );
### retrieve individual message
my @stack = Log::Message::Simple->stack;
my @stack = Log::Message::Simple->flush;
### retrieve the entire stack in printable form
my $msgs = Log::Message::Simple->stack_as_string;
my $trace = Log::Message::Simple->stack_as_string(1);
### redirect output
local $Log::Message::Simple::MSG_FH = \*STDERR;
local $Log::Message::Simple::ERROR_FH = \*STDERR;
local $Log::Message::Simple::DEBUG_FH = \*STDERR;
### force a stacktrace on error
local $Log::Message::Simple::STACKTRACE_ON_ERROR = 1
=head1 DESCRIPTION
This module provides standardized logging facilities using the
C<Log::Message> module.
lib/Log/Message/Simple.pm view on Meta::CPAN
my $verbose = shift || 0;
### so you don't want us to print the msg? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::MSG_FH;
print '['. $self->tag (). '] ' . $self->message . "\n";
select $old_fh;
return;
}
lib/Log/Message/Simple.pm view on Meta::CPAN
my $verbose = shift || 0;
### so you don't want us to print the msg? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::DEBUG_FH;
print '['. $self->tag (). '] ' . $self->message . "\n";
select $old_fh;
return;
}
lib/Log/Message/Simple.pm view on Meta::CPAN
$verbose = 1 unless defined $verbose; # default to true
### so you don't want us to print the error? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::ERROR_FH;
my $msg = '['. $self->tag . '] ' . $self->message;
print $Log::Message::Simple::STACKTRACE_ON_ERROR
? Carp::shortmess($msg)
: $msg . "\n";
select $old_fh;
lib/Log/Message/Simple.pm view on Meta::CPAN
Exported by using the C<:CARP> tag.
=head1 CLASS METHODS
=head2 Log::Message::Simple->stack()
Retrieves all the items on the stack. Since C<Log::Message::Simple> is
implemented using C<Log::Message>, consult its manpage for the
function C<retrieve> to see what is returned and how to use the items.
=head2 Log::Message::Simple->stack_as_string([TRACE])
Returns the whole stack as a printable string. If the C<TRACE> option is
true all items are returned with C<Carp::longmess> output, rather than
just the message.
C<TRACE> defaults to false.
=head2 Log::Message::Simple->flush()
Removes all the items from the stack and returns them. Since
C<Log::Message::Simple> is implemented using C<Log::Message>, consult its
manpage for the function C<retrieve> to see what is returned and how
to use the items.
=cut
view release on metacpan or search on metacpan
lib/Module/CoreList/List/5.pod view on Meta::CPAN
=item * L<Log::Message::Handlers> (undef)
=item * L<Log::Message::Item> (undef)
=item * L<Log::Message::Simple> (undef)
=item * L<MIME::Base64> (undef)
=item * L<MIME::QuotedPrint> (undef)
view release on metacpan or search on metacpan
lib/Module/CoreList.pm view on Meta::CPAN
'Locale::Maketext::Simple'=> '0.18',
'Log::Message' => '0.01',
'Log::Message::Config' => '0.01',
'Log::Message::Handlers'=> undef,
'Log::Message::Item' => undef,
'Log::Message::Simple' => '0.0201',
'Math::BigFloat' => '1.58',
'Math::BigInt' => '1.87',
'Math::BigInt::Calc' => '0.51',
'Math::BigInt::FastCalc'=> '0.15_01',
'Math::BigRat' => '0.19',
lib/Module/CoreList.pm view on Meta::CPAN
'IO::Uncompress::Unzip' => '2.008',
'IO::Zlib' => '1.07',
'IPC::Cmd' => '0.40_1',
'IPC::SysV' => '1.05',
'Locale::Maketext' => '1.12',
'Log::Message::Simple' => '0.04',
'Math::BigFloat' => '1.59',
'Math::BigInt' => '1.88',
'Math::BigInt::Calc' => '0.52',
'Math::BigInt::FastCalc'=> '0.16',
'Math::BigRat' => '0.21',
lib/Module/CoreList.pm view on Meta::CPAN
'IO::Uncompress::Unzip' => '2.021',
'IO::Zlib' => '1.10',
'IPC::Cmd' => '0.50',
'IPC::Open3' => '1.05',
'Locale::Maketext::Simple'=> '0.21',
'Log::Message::Simple' => '0.06',
'Math::BigInt' => '1.89_01',
'Math::BigRat' => '0.24',
'Module::Build' => '0.35',
'Module::Build::Base' => '0.35',
'Module::Build::Compat' => '0.35',
lib/Module/CoreList.pm view on Meta::CPAN
'Locale::Maketext' => '1.18',
'Log::Message' => '0.04',
'Log::Message::Config' => '0.04',
'Log::Message::Handlers'=> '0.04',
'Log::Message::Item' => '0.04',
'Log::Message::Simple' => '0.08',
'Math::BigFloat' => '1.99_03',
'Math::BigInt' => '1.99_03',
'Math::BigInt::Calc' => '1.99_03',
'Math::BigInt::FastCalc'=> '0.24_02',
'Math::BigRat' => '0.26_02',
lib/Module/CoreList.pm view on Meta::CPAN
'IO' => '1.27',
'Log::Message' => '0.06',
'Log::Message::Config' => '0.06',
'Log::Message::Handlers'=> '0.06',
'Log::Message::Item' => '0.06',
'Log::Message::Simple' => '0.10',
'Math::BigInt' => '1.999',
'Module::CoreList' => '2.82',
'Module::CoreList::TieHashDelta'=> '2.82',
'Module::Load' => '0.24',
'Module::Pluggable' => '4.6',
lib/Module/CoreList.pm view on Meta::CPAN
'File::CheckTree' => 1,
'Log::Message' => 1,
'Log::Message::Config' => 1,
'Log::Message::Handlers'=> 1,
'Log::Message::Item' => 1,
'Log::Message::Simple' => 1,
'Module::Pluggable' => 1,
'Module::Pluggable::Object'=> 1,
'Object::Accessor' => 1,
'Pod::LaTeX' => 1,
'Term::UI' => 1,
lib/Module/CoreList.pm view on Meta::CPAN
File::CheckTree
Log::Message
Log::Message::Config
Log::Message::Handlers
Log::Message::Item
Log::Message::Simple
Module::Pluggable
Module::Pluggable::Object
Object::Accessor
Term::UI
Term::UI::History
lib/Module/CoreList.pm view on Meta::CPAN
File::CheckTree
Log::Message
Log::Message::Config
Log::Message::Handlers
Log::Message::Item
Log::Message::Simple
Module::Pluggable
Module::Pluggable::Object
Object::Accessor
Pod::LaTeX
Term::UI
view release on metacpan or search on metacpan
misc/sixpan/JIB/lib/JIB/Alternative.pm view on Meta::CPAN
use JIB::Config;
use JIB::Utils;
use Params::Check qw[check];
use Log::Message::Simple qw[:STD];
use Data::Dumper;
use base 'Object::Accessor';
=head1 ACCESSORS
view release on metacpan or search on metacpan
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
package Log::Message::Simple;
use if $] > 5.017, 'deprecate';
use strict;
use Log::Message private => 0;;
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
=pod
=head1 NAME
Log::Message::Simple - Simplified interface to Log::Message
=head1 SYNOPSIS
use Log::Message::Simple qw[msg error debug
carp croak cluck confess];
use Log::Message::Simple qw[:STD :CARP];
### standard reporting functionality
msg( "Connecting to database", $verbose );
error( "Database connection failed: $@", $verbose );
debug( "Connection arguments were: $args", $debug );
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
croak( "Fatal: wrong arguments passed: @_" );
cluck( "Wrong arguments passed -- including stacktrace: @_" );
confess("Fatal: wrong arguments passed -- including stacktrace: @_" );
### retrieve individual message
my @stack = Log::Message::Simple->stack;
my @stack = Log::Message::Simple->flush;
### retrieve the entire stack in printable form
my $msgs = Log::Message::Simple->stack_as_string;
my $trace = Log::Message::Simple->stack_as_string(1);
### redirect output
local $Log::Message::Simple::MSG_FH = \*STDERR;
local $Log::Message::Simple::ERROR_FH = \*STDERR;
local $Log::Message::Simple::DEBUG_FH = \*STDERR;
### force a stacktrace on error
local $Log::Message::Simple::STACKTRACE_ON_ERROR = 1
=head1 DESCRIPTION
This module provides standardized logging facilities using the
C<Log::Message> module.
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
my $verbose = shift || 0;
### so you don't want us to print the msg? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::MSG_FH;
print '['. $self->tag (). '] ' . $self->message . "\n";
select $old_fh;
return;
}
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
my $verbose = shift || 0;
### so you don't want us to print the msg? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::DEBUG_FH;
print '['. $self->tag (). '] ' . $self->message . "\n";
select $old_fh;
return;
}
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
$verbose = 1 unless defined $verbose; # default to true
### so you don't want us to print the error? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::ERROR_FH;
my $msg = '['. $self->tag . '] ' . $self->message;
print $Log::Message::Simple::STACKTRACE_ON_ERROR
? Carp::shortmess($msg)
: $msg . "\n";
select $old_fh;
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
Exported by using the C<:CARP> tag.
=head1 CLASS METHODS
=head2 Log::Message::Simple->stack()
Retrieves all the items on the stack. Since C<Log::Message::Simple> is
implemented using C<Log::Message>, consult its manpage for the
function C<retrieve> to see what is returned and how to use the items.
=head2 Log::Message::Simple->stack_as_string([TRACE])
Returns the whole stack as a printable string. If the C<TRACE> option is
true all items are returned with C<Carp::longmess> output, rather than
just the message.
C<TRACE> defaults to false.
=head2 Log::Message::Simple->flush()
Removes all the items from the stack and returns them. Since
C<Log::Message::Simple> is implemented using C<Log::Message>, consult its
manpage for the function C<retrieve> to see what is returned and how
to use the items.
=cut
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
if 0
Log-Message-Simple-0.10
pathname: B/BI/BINGOS/Log-Message-Simple-0.10.tar.gz
provides:
Log::Message::Handlers 0.10
Log::Message::Simple 0.10
requirements:
Carp 0
ExtUtils::MakeMaker 0
Log::Message 0
Test::More 0
cpanfile.snapshot view on Meta::CPAN
Term::UI 0.42
Term::UI::History 0.42
requirements:
ExtUtils::MakeMaker 0
Locale::Maketext::Simple 0
Log::Message::Simple 0
Params::Check 0
Term::ReadLine 0
Test::More 0.31
if 0
TermReadKey-2.32
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
if 0
Log-Message-Simple-0.10
pathname: B/BI/BINGOS/Log-Message-Simple-0.10.tar.gz
provides:
Log::Message::Handlers 0.10
Log::Message::Simple 0.10
requirements:
Carp 0
ExtUtils::MakeMaker 0
Log::Message 0
Test::More 0
cpanfile.snapshot view on Meta::CPAN
Term::UI 0.46
Term::UI::History 0.46
requirements:
ExtUtils::MakeMaker 0
Locale::Maketext::Simple 0
Log::Message::Simple 0
Params::Check 0
Term::ReadLine 0
Test::More 0.31
if 0
TermReadKey-2.33
view release on metacpan or search on metacpan
inc/Module/CoreList.pm view on Meta::CPAN
'Locale::Maketext::Simple'=> '0.18',
'Log::Message' => '0.01',
'Log::Message::Config' => '0.01',
'Log::Message::Handlers'=> undef,
'Log::Message::Item' => undef,
'Log::Message::Simple' => '0.0201',
'Math::BigFloat' => '1.58',
'Math::BigInt' => '1.87',
'Math::BigInt::Calc' => '0.51',
'Math::BigInt::FastCalc'=> '0.15_01',
'Math::BigRat' => '0.19',
inc/Module/CoreList.pm view on Meta::CPAN
'IO::Uncompress::Unzip' => '2.008',
'IO::Zlib' => '1.07',
'IPC::Cmd' => '0.40_1',
'IPC::SysV' => '1.05',
'Locale::Maketext' => '1.12',
'Log::Message::Simple' => '0.04',
'Math::BigFloat' => '1.59',
'Math::BigInt' => '1.88',
'Math::BigInt::Calc' => '0.52',
'Math::BigInt::FastCalc'=> '0.16',
'Math::BigRat' => '0.21',
inc/Module/CoreList.pm view on Meta::CPAN
'IO::Uncompress::Unzip' => '2.021',
'IO::Zlib' => '1.10',
'IPC::Cmd' => '0.50',
'IPC::Open3' => '1.05',
'Locale::Maketext::Simple'=> '0.21',
'Log::Message::Simple' => '0.06',
'Math::BigInt' => '1.89_01',
'Math::BigRat' => '0.24',
'Module::Build' => '0.35',
'Module::Build::Base' => '0.35',
'Module::Build::Compat' => '0.35',
inc/Module/CoreList.pm view on Meta::CPAN
'Locale::Maketext' => '1.18',
'Log::Message' => '0.04',
'Log::Message::Config' => '0.04',
'Log::Message::Handlers'=> '0.04',
'Log::Message::Item' => '0.04',
'Log::Message::Simple' => '0.08',
'Math::BigFloat' => '1.99_03',
'Math::BigInt' => '1.99_03',
'Math::BigInt::Calc' => '1.99_03',
'Math::BigInt::FastCalc'=> '0.24_02',
'Math::BigRat' => '0.26_02',
inc/Module/CoreList.pm view on Meta::CPAN
'IO' => '1.27',
'Log::Message' => '0.06',
'Log::Message::Config' => '0.06',
'Log::Message::Handlers'=> '0.06',
'Log::Message::Item' => '0.06',
'Log::Message::Simple' => '0.10',
'Math::BigInt' => '1.999',
'Module::CoreList' => '2.82',
'Module::CoreList::TieHashDelta'=> '2.82',
'Module::Load' => '0.24',
'Module::Pluggable' => '4.6',
inc/Module/CoreList.pm view on Meta::CPAN
'File::CheckTree' => 1,
'Log::Message' => 1,
'Log::Message::Config' => 1,
'Log::Message::Handlers'=> 1,
'Log::Message::Item' => 1,
'Log::Message::Simple' => 1,
'Module::Pluggable' => 1,
'Module::Pluggable::Object'=> 1,
'Object::Accessor' => 1,
'Pod::LaTeX' => 1,
'Term::UI' => 1,
inc/Module/CoreList.pm view on Meta::CPAN
File::CheckTree
Log::Message
Log::Message::Config
Log::Message::Handlers
Log::Message::Item
Log::Message::Simple
Module::Pluggable
Module::Pluggable::Object
Object::Accessor
Term::UI
Term::UI::History
inc/Module/CoreList.pm view on Meta::CPAN
File::CheckTree
Log::Message
Log::Message::Config
Log::Message::Handlers
Log::Message::Item
Log::Message::Simple
Module::Pluggable
Module::Pluggable::Object
Object::Accessor
Pod::LaTeX
Term::UI
view release on metacpan or search on metacpan
lib/Term/UI/History.pm view on Meta::CPAN
use strict;
use warnings;
use parent
qw! Exporter
Log::Message::Simple
!;
use Log::Message 'private' => 0;
our $HISTORY_FH = \ *STDOUT;
lib/Term/UI/History.pm view on Meta::CPAN
printing and saving all the C<UI> interaction.
Refer to the C<Term::UI> manpage for details on usage from
C<Term::UI>.
This module subclasses C<Log::Message::Simple>. Refer to its
manpage for additional functionality available via this package.
=head1 FUNCTIONS
=head2 history("message string" [,VERBOSE])
lib/Term/UI/History.pm view on Meta::CPAN
=back
=head1 See Also
C<Log::Message::Simple>, C<Term::UI>
=head1 AUTHOR
This module by
Jos Boumans E<lt>kane@cpan.orgE<gt>.
view release on metacpan or search on metacpan
bin/ws-getAllowablePath.pl view on Meta::CPAN
use WebService::UMLSKS::Query;
use WebService::UMLSKS::ConnectUMLS;
use WebService::UMLSKS::Similarity;
use WebService::UMLSKS::GetCUIs;
use WebService::UMLSKS::FormGraph;
use Log::Message::Simple qw[msg error debug];
#use get_all_associatedCUIs;
use Getopt::Long;
#use SOAP::Lite +trace => 'debug';
no warnings qw/redefine/;
bin/ws-getAllowablePath.pl view on Meta::CPAN
if($log_file ne '' && $verbose eq 1){
open (LOG , '>>', $log_file);
$Log::Message::Simple::MSG_FH = \*LOG;
$Log::Message::Simple::ERROR_FH = \*LOG;
$Log::Message::Simple::DEBUG_FH = \*LOG;
# Following code to print time and date in readable form is taken from following source
#http://perl.about.com/od/perltutorials/a/perllocaltime_2.htm
my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
view release on metacpan or search on metacpan
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
package Log::Message::Simple;
use if $] > 5.017, 'deprecate';
use strict;
use Log::Message private => 0;;
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
=pod
=head1 NAME
Log::Message::Simple - Simplified interface to Log::Message
=head1 SYNOPSIS
use Log::Message::Simple qw[msg error debug
carp croak cluck confess];
use Log::Message::Simple qw[:STD :CARP];
### standard reporting functionality
msg( "Connecting to database", $verbose );
error( "Database connection failed: $@", $verbose );
debug( "Connection arguments were: $args", $debug );
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
croak( "Fatal: wrong arguments passed: @_" );
cluck( "Wrong arguments passed -- including stacktrace: @_" );
confess("Fatal: wrong arguments passed -- including stacktrace: @_" );
### retrieve individual message
my @stack = Log::Message::Simple->stack;
my @stack = Log::Message::Simple->flush;
### retrieve the entire stack in printable form
my $msgs = Log::Message::Simple->stack_as_string;
my $trace = Log::Message::Simple->stack_as_string(1);
### redirect output
local $Log::Message::Simple::MSG_FH = \*STDERR;
local $Log::Message::Simple::ERROR_FH = \*STDERR;
local $Log::Message::Simple::DEBUG_FH = \*STDERR;
### force a stacktrace on error
local $Log::Message::Simple::STACKTRACE_ON_ERROR = 1
=head1 DESCRIPTION
This module provides standardized logging facilities using the
C<Log::Message> module.
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
my $verbose = shift || 0;
### so you don't want us to print the msg? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::MSG_FH;
print '['. $self->tag (). '] ' . $self->message . "\n";
select $old_fh;
return;
}
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
my $verbose = shift || 0;
### so you don't want us to print the msg? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::DEBUG_FH;
print '['. $self->tag (). '] ' . $self->message . "\n";
select $old_fh;
return;
}
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
$verbose = 1 unless defined $verbose; # default to true
### so you don't want us to print the error? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::ERROR_FH;
my $msg = '['. $self->tag . '] ' . $self->message;
print $Log::Message::Simple::STACKTRACE_ON_ERROR
? Carp::shortmess($msg)
: $msg . "\n";
select $old_fh;
local/lib/perl5/Log/Message/Simple.pm view on Meta::CPAN
Exported by using the C<:CARP> tag.
=head1 CLASS METHODS
=head2 Log::Message::Simple->stack()
Retrieves all the items on the stack. Since C<Log::Message::Simple> is
implemented using C<Log::Message>, consult its manpage for the
function C<retrieve> to see what is returned and how to use the items.
=head2 Log::Message::Simple->stack_as_string([TRACE])
Returns the whole stack as a printable string. If the C<TRACE> option is
true all items are returned with C<Carp::longmess> output, rather than
just the message.
C<TRACE> defaults to false.
=head2 Log::Message::Simple->flush()
Removes all the items from the stack and returns them. Since
C<Log::Message::Simple> is implemented using C<Log::Message>, consult its
manpage for the function C<retrieve> to see what is returned and how
to use the items.
=cut
view release on metacpan or search on metacpan
dist/Module-CoreList/lib/Module/CoreList.pm view on Meta::CPAN
'Locale::Maketext::Simple'=> '0.18',
'Log::Message' => '0.01',
'Log::Message::Config' => '0.01',
'Log::Message::Handlers'=> undef,
'Log::Message::Item' => undef,
'Log::Message::Simple' => '0.0201',
'Math::BigFloat' => '1.58',
'Math::BigInt' => '1.87',
'Math::BigInt::Calc' => '0.51',
'Math::BigInt::FastCalc'=> '0.15_01',
'Math::BigRat' => '0.19',
dist/Module-CoreList/lib/Module/CoreList.pm view on Meta::CPAN
'IO::Uncompress::Unzip' => '2.008',
'IO::Zlib' => '1.07',
'IPC::Cmd' => '0.40_1',
'IPC::SysV' => '1.05',
'Locale::Maketext' => '1.12',
'Log::Message::Simple' => '0.04',
'Math::BigFloat' => '1.59',
'Math::BigInt' => '1.88',
'Math::BigInt::Calc' => '0.52',
'Math::BigInt::FastCalc'=> '0.16',
'Math::BigRat' => '0.21',
dist/Module-CoreList/lib/Module/CoreList.pm view on Meta::CPAN
'IO::Uncompress::Unzip' => '2.021',
'IO::Zlib' => '1.10',
'IPC::Cmd' => '0.50',
'IPC::Open3' => '1.05',
'Locale::Maketext::Simple'=> '0.21',
'Log::Message::Simple' => '0.06',
'Math::BigInt' => '1.89_01',
'Math::BigRat' => '0.24',
'Module::Build' => '0.35',
'Module::Build::Base' => '0.35',
'Module::Build::Compat' => '0.35',
dist/Module-CoreList/lib/Module/CoreList.pm view on Meta::CPAN
'Locale::Maketext' => '1.18',
'Log::Message' => '0.04',
'Log::Message::Config' => '0.04',
'Log::Message::Handlers'=> '0.04',
'Log::Message::Item' => '0.04',
'Log::Message::Simple' => '0.08',
'Math::BigFloat' => '1.99_03',
'Math::BigInt' => '1.99_03',
'Math::BigInt::Calc' => '1.99_03',
'Math::BigInt::FastCalc'=> '0.24_02',
'Math::BigRat' => '0.26_02',
dist/Module-CoreList/lib/Module/CoreList.pm view on Meta::CPAN
'IO' => '1.27',
'Log::Message' => '0.06',
'Log::Message::Config' => '0.06',
'Log::Message::Handlers'=> '0.06',
'Log::Message::Item' => '0.06',
'Log::Message::Simple' => '0.10',
'Math::BigInt' => '1.999',
'Module::CoreList' => '2.82',
'Module::CoreList::TieHashDelta'=> '2.82',
'Module::Load' => '0.24',
'Module::Pluggable' => '4.6',
dist/Module-CoreList/lib/Module/CoreList.pm view on Meta::CPAN
'File::CheckTree' => 1,
'Log::Message' => 1,
'Log::Message::Config' => 1,
'Log::Message::Handlers'=> 1,
'Log::Message::Item' => 1,
'Log::Message::Simple' => 1,
'Module::Pluggable' => 1,
'Module::Pluggable::Object'=> 1,
'Object::Accessor' => 1,
'Pod::LaTeX' => 1,
'Term::UI' => 1,
dist/Module-CoreList/lib/Module/CoreList.pm view on Meta::CPAN
File::CheckTree
Log::Message
Log::Message::Config
Log::Message::Handlers
Log::Message::Item
Log::Message::Simple
Module::Pluggable
Module::Pluggable::Object
Object::Accessor
Term::UI
Term::UI::History
dist/Module-CoreList/lib/Module/CoreList.pm view on Meta::CPAN
File::CheckTree
Log::Message
Log::Message::Config
Log::Message::Handlers
Log::Message::Item
Log::Message::Simple
Module::Pluggable
Module::Pluggable::Object
Object::Accessor
Pod::LaTeX
Term::UI
view release on metacpan or search on metacpan
lib/App/SmokeBrew.pm view on Meta::CPAN
#ABSTRACT: The guts of smokebrew
use strict;
use warnings;
use Pod::Usage;
use Log::Message::Simple qw[msg error];
use Module::Load::Conditional qw[can_load];
use App::SmokeBrew::IniFile;
use App::SmokeBrew::Tools;
use App::SmokeBrew::BuildPerl;
use Module::Pluggable search_path => 'App::SmokeBrew::Plugin';
view release on metacpan or search on metacpan
cpansmokebox/inc/bundle/Log/Message/Simple.pm view on Meta::CPAN
package Log::Message::Simple;
use strict;
use Log::Message private => 0;;
BEGIN {
cpansmokebox/inc/bundle/Log/Message/Simple.pm view on Meta::CPAN
my $verbose = shift || 0;
### so you don't want us to print the msg? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::MSG_FH;
print '['. $self->tag (). '] ' . $self->message . "\n";
select $old_fh;
return;
}
cpansmokebox/inc/bundle/Log/Message/Simple.pm view on Meta::CPAN
my $verbose = shift || 0;
### so you don't want us to print the msg? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::DEBUG_FH;
print '['. $self->tag (). '] ' . $self->message . "\n";
select $old_fh;
return;
}
cpansmokebox/inc/bundle/Log/Message/Simple.pm view on Meta::CPAN
$verbose = 1 unless defined $verbose; # default to true
### so you don't want us to print the error? ###
return if defined $verbose && $verbose == 0;
my $old_fh = select $Log::Message::Simple::ERROR_FH;
my $msg = '['. $self->tag . '] ' . $self->message;
print $Log::Message::Simple::STACKTRACE_ON_ERROR
? Carp::shortmess($msg)
: $msg . "\n";
select $old_fh;