Log-Shiras
27 results

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN 

            "strict" : "0",
            "utf8" : "0",
            "version" : "0.77",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "Capture::Tiny" : "0.12",
            "Filter::Util::Call" : "1.55",
            "Modern::Perl" : "0",
            "Test2::Bundle::Extended" : "0",
            "Test2::Plugin::UTF8" : "0",
            "Test::File" : "0",
            "Test::Moose" : "0"
         }
      }
   },
   "provides" : {
      "Log::Shiras" : {
         "file" : "lib/Log/Shiras.pm",

META.yml  view on Meta::CPAN 

---
abstract: 'A Moose based logging and reporting tool'
author:
  - 'Jed Lund <jandrew@cpan.org>'
build_requires:
  Capture::Tiny: '0.12'
  Filter::Util::Call: '1.55'
  Modern::Perl: '0'
  Test2::Bundle::Extended: '0'
  Test2::Plugin::UTF8: '0'
  Test::File: '0'
  Test::Moose: '0'
configure_requires:
  Data::Walk::Extracted: '0.028'
  ExtUtils::MakeMaker: '7.04'
  Moose: '2.1804'
  MooseX::ShortCut::BuildInstance: '1.044'
dynamic_config: 0

Makefile.PL  view on Meta::CPAN 

    "lib" => 0,
    "namespace::autoclean" => 0,
    "strict" => 0,
    "utf8" => 0,
    "version" => "0.77",
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "Capture::Tiny" => "0.12",
    "Filter::Util::Call" => "1.55",
    "Modern::Perl" => 0,
    "Test2::Bundle::Extended" => 0,
    "Test2::Plugin::UTF8" => 0,
    "Test::File" => 0,
    "Test::Moose" => 0
  },
  "VERSION" => "v0.48.0",
  "test" => {
    "TESTS" => "t/Log/Shiras/*.t t/Log/Shiras/Report/*.t"
  }
);

Makefile.PL  view on Meta::CPAN 

  "DateTime" => 0,
  "Fcntl" => 0,
  "File::Copy" => 0,
  "File::Spec" => 0,
  "File::Temp" => 0,
  "FileHandle" => 0,
  "Filter::Util::Call" => "1.55",
  "IO::Callback" => 0,
  "IO::File" => 0,
  "JSON::XS" => 0,
  "Modern::Perl" => 0,
  "Module::Runtime" => 0,
  "Moose" => 0,
  "Moose::Exporter" => 0,
  "Moose::Role" => 0,
  "MooseX::HasDefaults::RO" => 0,
  "MooseX::ShortCut::BuildInstance" => "1.44.0",
  "MooseX::Singleton" => 0,
  "MooseX::StrictConstructor" => 0,
  "MooseX::Types" => 0,
  "MooseX::Types::Moose" => 0,

README.pod  view on Meta::CPAN 


<a href='http://cpants.cpanauthors.org/dist/Log-Shiras'>
	<img src='http://cpants.cpanauthors.org/dist/Log-Shiras.png' alt='kwalitee' height="20"/>
</a>

=end html

=head1 SYNOPSIS

	#!perl
	use Modern::Perl;
	use lib 'lib', '../lib',;
	use Log::Shiras::Unhide qw( :debug);#
	use Log::Shiras::Switchboard;
	use Log::Shiras::Telephone;
	use Log::Shiras::Report::Stdout;
	$| = 1;

	sub shout_at_me{
		my $telephone = Log::Shiras::Telephone->new( report => 'run' );
		$telephone->talk( carp_stack => 1, level => 'info', message =>[ @_ ] );

examples/log_shiras.pl  view on Meta::CPAN 

#!perl
use Modern::Perl;
use lib 'lib', '../lib',;
use Log::Shiras::Unhide qw( :debug);#
use Log::Shiras::Switchboard;
use Log::Shiras::Telephone;
use Log::Shiras::Report::Stdout;
$| = 1;

sub shout_at_me{
	my $telephone = Log::Shiras::Telephone->new( report => 'run' );
	$telephone->talk( carp_stack => 1, level => 'info', message =>[ @_ ] );

examples/log_shiras_logspace.pl  view on Meta::CPAN 

use Modern::Perl;
use MooseX::ShortCut::BuildInstance qw( build_class );
use	lib 
		'../lib',;
use Log::Shiras::LogSpace;
my $test_instance = build_class(
		package => 'Generic',
		roles =>[ 'Log::Shiras::LogSpace' ],
		add_methods =>{
			get_class_space => sub{ 'ExchangeStudent' },
			i_am => sub{

examples/log_shiras_report_csvfile.pl  view on Meta::CPAN 

use lib '../lib';
use Modern::Perl;
#~ use Log::Shiras::Unhide qw( :InternalReporTCSV );
use Log::Shiras::Switchboard;
use Log::Shiras::Telephone;
use Log::Shiras::Report;
use Log::Shiras::Report::CSVFile;
$ENV{hide_warn} = 1;
$| = 1;
my	$operator = Log::Shiras::Switchboard->get_operator(
		name_space_bounds =>{
			UNBLOCK =>{

examples/log_shiras_report_upsert.pl  view on Meta::CPAN 

use lib '../lib';
use Modern::Perl;
use Log::Shiras::Unhide qw( :InternalReportPostgreS :InternalReporTUpserT );
use Log::Shiras::Switchboard;
use Log::Shiras::Telephone;
use Log::Shiras::Report;
use Log::Shiras::Report::PostgreSQL;
use Log::Shiras::Report::Upsert;
use Log::Shiras::Report::Stdout;
$ENV{hide_warn} = 1;
$| = 1;
my	$operator = Log::Shiras::Switchboard->get_operator(

examples/log_shiras_switchboard.pl  view on Meta::CPAN 

#!perl
use Modern::Perl;
use lib 'lib', '../lib',;
use Log::Shiras::Unhide qw( :debug :InternalSwitchboarD );# ;#
use Log::Shiras::Switchboard;
###InternalSwitchboarD	use Log::Shiras::Report::Stdout;
$| = 1;
###LogSD warn "lets get ready to rumble...";
my $operator = Log::Shiras::Switchboard->get_operator(
		name_space_bounds =>{
			main =>{
				UNBLOCK =>{

examples/log_shiras_tapprint.pl  view on Meta::CPAN 

use Modern::Perl;
use	lib 
		'../lib',;
#~ use Log::Shiras::Unhide qw( :InternalTaPPrinT );
$ENV{hide_warn} = 0;
use Log::Shiras::Switchboard;
use Log::Shiras::TapPrint qw( re_route_print restore_print );
my	$ella_peterson = Log::Shiras::Switchboard->get_operator(
		name_space_bounds =>{
			UNBLOCK =>{
				log_file => 'debug',

examples/log_shiras_tapwarn.pl  view on Meta::CPAN 

use Modern::Perl;
use	lib 
		'../lib',;
#~ use Log::Shiras::Unhide qw( :InternalTaPWarN );# :InternalSwitchboarD
$ENV{hide_warn} = 0;
use Log::Shiras::Switchboard;
use Log::Shiras::TapWarn qw( re_route_warn restore_warn );
my	$ella_peterson = Log::Shiras::Switchboard->get_operator(
		name_space_bounds =>{
			UNBLOCK =>{
				log_file => 'trace',

examples/log_shiras_telephone.pl  view on Meta::CPAN 

				);
	$phone->talk( level => 'debug',
		message => "Arrived at make_a_noise with the message: $message" );
	print '!!!!!!!! ' . uc( $message  ) . " !!!!!!!!!\n";
	$phone->talk( level => 'info',
		message => "Finished printing message" );
}

package main;

use Modern::Perl;
use Log::Shiras::Switchboard;
use Log::Shiras::Report::Stdout;
use MyCoolPackage;
$| = 1;
my	$agitation = MyCoolPackage->new;
	$agitation->make_a_noise( 'Hello World 1' );#
my	$operator = Log::Shiras::Switchboard->get_operator(
		name_space_bounds =>{
			TellMeAbout =>{
				make_a_noise =>{

lib/Log/Shiras.pm  view on Meta::CPAN 


<a href='http://cpants.cpanauthors.org/dist/Log-Shiras'>
	<img src='http://cpants.cpanauthors.org/dist/Log-Shiras.png' alt='kwalitee' height="20"/>
</a>

=end html

=head1 SYNOPSIS

	#!perl
	use Modern::Perl;
	use lib 'lib', '../lib',;
	use Log::Shiras::Unhide qw( :debug);#
	use Log::Shiras::Switchboard;
	use Log::Shiras::Telephone;
	use Log::Shiras::Report::Stdout;
	$| = 1;

	sub shout_at_me{
		my $telephone = Log::Shiras::Telephone->new( report => 'run' );
		$telephone->talk( carp_stack => 1, level => 'info', message =>[ @_ ] );

lib/Log/Shiras/LogSpace.pm  view on Meta::CPAN 

#########1 main POD docs      3#########4#########5#########6#########7#########8#########9

__END__

=head1 NAME

Log::Shiras::LogSpace - Log::Shiras Role for runtime name-spaces

=head1 SYNOPSIS

	use Modern::Perl;
	use MooseX::ShortCut::BuildInstance qw( build_class );
	use Log::Shiras::LogSpace;
	my $test_instance = build_class(
			package => 'Generic',
			roles =>[ 'Log::Shiras::LogSpace' ],
			add_methods =>{
				get_class_space => sub{ 'ExchangeStudent' },
				i_am => sub{
					my( $self )= @_;
					print "I identify as a: " . $self->get_all_space( 'individual' ) . "\n";

lib/Log/Shiras/Report.pm  view on Meta::CPAN 


#########1 main pod docs      3#########4#########5#########6#########7#########8#########9
__END__

=head1 NAME

Log::Shiras::Report - Report Role (Interface) for Log::Shiras

=head1 SYNOPSIS

	use Modern::Perl;
	use Log::Shiras::Switchboard;
	use Log::Shiras::Report;
	use Log::Shiras::Report::CSVFile;
	my	$operator = Log::Shiras::Switchboard->get_operator(
			name_space_bounds =>{
				UNBLOCK =>{
					to_file => 'info',# for info and more urgent messages
				},
			},
			reports =>{

lib/Log/Shiras/Report/CSVFile.pm  view on Meta::CPAN 

#########1 main pod docs      3#########4#########5#########6#########7#########8#########9

__END__

=head1 NAME

Log::Shiras::Report::CSVFile - A report base for csv files

=head1 SYNOPSIS

	use Modern::Perl;
	#~ use Log::Shiras::Unhide qw( :InternalReporTCSV );
	use Log::Shiras::Switchboard;
	use Log::Shiras::Telephone;
	use Log::Shiras::Report;
	use Log::Shiras::Report::CSVFile;
	use Log::Shiras::Report::Stdout;
	$ENV{hide_warn} = 1;
	$| = 1;
	my	$operator = Log::Shiras::Switchboard->get_operator(
			name_space_bounds =>{

lib/Log/Shiras/Switchboard.pm  view on Meta::CPAN 


B<Returns:> 1

=back

=head1 SYNOPSIS

This is pretty long so I put it at the end

	#!perl
	use Modern::Perl;
	use lib 'lib', '../lib',;
	use Log::Shiras::Unhide qw( :debug :InternalSwitchboarD );#
	use Log::Shiras::Switchboard;
	###InternalSwitchboarD	use Log::Shiras::Report::Stdout;
	$| = 1;
	###LogSD warn "lets get ready to rumble...";
	my $operator = Log::Shiras::Switchboard->get_operator(
			name_space_bounds =>{
				main =>{
					UNBLOCK =>{

lib/Log/Shiras/TapPrint.pm  view on Meta::CPAN 


#########1 main pod docs      3#########4#########5#########6#########7#########8#########9
__END__

=head1 NAME

Log::Shiras::TapPrint - Reroute print to Log::Shiras::Switchboard

=head1 SYNOPSIS

	use Modern::Perl;
	#~ use Log::Shiras::Unhide qw( :InternalTaPPrinT );
	$ENV{hide_warn} = 0;
	use Log::Shiras::Switchboard;
	use Log::Shiras::TapPrint 're_route_print';
	my	$ella_peterson = Log::Shiras::Switchboard->get_operator(
			name_space_bounds =>{
				UNBLOCK =>{
					log_file => 'debug',
				},
				main =>{

lib/Log/Shiras/TapWarn.pm  view on Meta::CPAN 


#########1 main pod docs      3#########4#########5#########6#########7#########8#########9
__END__

=head1 NAME

Log::Shiras::TapWarn - Reroute warn to Log::Shiras::Switchboard

=head1 SYNOPSIS

	use Modern::Perl;
	#~ use Log::Shiras::Unhide qw( :InternalTaPWarN );# :InternalSwitchboarD
	$ENV{hide_warn} = 0;
	use Log::Shiras::Switchboard;
	use Log::Shiras::TapWarn qw( re_route_warn restore_warn );
	my	$ella_peterson = Log::Shiras::Switchboard->get_operator(
			name_space_bounds =>{
				UNBLOCK =>{
					log_file => 'trace',
				},
				main =>{

lib/Log/Shiras/Telephone.pm  view on Meta::CPAN 

					);
		$phone->talk( level => 'debug',
			message => "Arrived at make_a_noise with the message: $message" );
		print '!!!!!!!! ' . uc( $message  ) . " !!!!!!!!!\n";
		$phone->talk( level => 'info',
			message => "Finished printing message" );
	}

	package main;

	use Modern::Perl;
	use Log::Shiras::Switchboard;
	use Log::Shiras::Report::Stdout;
	use MyCoolPackage;
	$| = 1;
	my	$agitation = MyCoolPackage->new;
		$agitation->make_a_noise( 'Hello World 1' );#
	my	$operator = Log::Shiras::Switchboard->get_operator(
			name_space_bounds =>{
				TellMeAbout =>{
					make_a_noise =>{

lib/Log/Shiras/Types.pm  view on Meta::CPAN 


=head1 NAME

Log::Shiras::Types - The Type::Tiny library for Log::Shiras

=head1 SYNOPSIS

	#!perl
	package Log::Shiras::Report::MyRole;

	use Modern::Perl;#suggested
	use Moose::Role;
	use Log::Shiras::Types v0.013 qw(
		ShirasFormat
		JsonFile
	);

	has	'someattribute' =>(
			isa     => ShirasFormat,#Note the lack of quotes
		);

t/Log/Shiras/04-telephone.t  view on Meta::CPAN 

#!perl
#########1 Initial Test File for Log::Shiras::Telephone     6#########7#########8#########9
my ( $lib, $test_file );
BEGIN{
	use Modern::Perl;
	use Test2::Bundle::Extended qw( !meta );
	use Test2::Plugin::UTF8;
	use Test::Moose;
	plan( 35 );
	my $file = (caller(0))[1];
	my 	$directory_ref = {
			t		=> './',# repo level
			Log		=> '../',# t folder level
			$file	=> '../../../',# test file level
		};

t/Log/Shiras/05-log_space.t  view on Meta::CPAN 

#!perl
#########1 Test File for Log::Shiras::LogSpace    5#########6#########7#########8#########9
my ( $lib, $test_file );
BEGIN{
	use Modern::Perl;
	use Test2::Bundle::Extended qw( !meta );
	use Test2::Plugin::UTF8;
	use Test::Moose;
	plan( 12 );
	my $file = (caller(0))[1];
	my 	$directory_ref = {
			t		=> './',# repo level
			Log		=> '../',# t folder level
			$file	=> '../../../',# test file level
		};

t/Log/Shiras/06-tap_print.t  view on Meta::CPAN 

#!perl
#########1 Test File for Log::Shiras::TapPrint    5#########6#########7#########8#########9
my ( $lib, $test_file );
BEGIN{
	use Modern::Perl;
	use Test2::Bundle::Extended qw( !meta );
	use Test2::Plugin::UTF8;
	plan( 25 );
	my $file = (caller(0))[1];
	my 	$directory_ref = {
			t		=> './',# repo level
			Log		=> '../',# t folder level
			$file	=> '../../../',# test file level
		};
	for my $next ( <*> ){

t/Log/Shiras/07-tap_warn.t  view on Meta::CPAN 

#!perl
#########1 Test File for Log::Shiras::Tapwarn    5#########6#########7#########8#########9
my ( $lib, $test_file );
BEGIN{
	use Modern::Perl;
	use Test2::Bundle::Extended qw( !meta );
	use Test2::Plugin::UTF8;
	plan( 25 );
	my $file = (caller(0))[1];
	my 	$directory_ref = {
			t		=> './',# repo level
			Log		=> '../',# t folder level
			$file	=> '../../../',# test file level
		};
	for my $next ( <*> ){

t/Log/Shiras/Report/01-csv.t  view on Meta::CPAN 

#!perl
#########1 Test File for Log::Shiras::TapPrint    5#########6#########7#########8#########9
my ( $lib, $test_file, );
BEGIN{
	use Modern::Perl;
	use Test2::Bundle::Extended qw( !meta );
	use Test2::Plugin::UTF8;
	use Test::Moose;
	plan( 57 );
	my $file = (caller(0))[1];
	my 	$directory_ref = {
			t		=> './',# repo level
			Log		=> '../',# t folder level
			$file	=> '../../../../',# test file level
		};

t/Log/Shiras/Report/02-meta_message.t  view on Meta::CPAN 

#!perl
#########1 Test File for Log::Shiras::TapPrint    5#########6#########7#########8#########9
my ( $lib, $test_file, );
BEGIN{
	use Modern::Perl;
	use Test2::Bundle::Extended qw( !meta );
	use Test2::Plugin::UTF8;
	use Test::Moose;
	my $file = (caller(0))[1];
	my 	$directory_ref = {
			t		=> './',# repo level
			Log		=> '../',# t folder level
			$file	=> '../../../../',# test file level
		};
	for my $next ( <*> ){



( run in 2.093 seconds using v1.01-cache-2.11-cpan-4d50c553e7e )