File Coverage

blib/lib/MARC/Leader/Print.pm

Criterion	Covered	Total	%
statement	35	79	44.3
branch	5	20	25.0
condition			n/a
subroutine	8	11	72.7
pod	2	2	100.0
total	50	112	44.6

package MARC::Leader::Print;

use strict;
use warnings;

use Class::Utils qw(set_params);
use English;
use Error::Pure qw(err);
use MARC::Leader::L10N 0.02;
use Mo::utils::Language 0.05 qw(check_language_639_1);

our $VERSION = 0.05;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Language.
	$self->{'lang'} = undef;

	# Use with ANSI sequences.
	$self->{'mode_ansi'} = undef;

	# Use description.
	$self->{'mode_desc'} = 1;

	# Output separator.
	$self->{'output_separator'} = "\n";

	# Process parameters.
	set_params($self, @params);

	# Check 'lang'.
	check_language_639_1($self, 'lang');

	if (! defined $self->{'mode_ansi'}) {
		if (exists $ENV{'NO_COLOR'}) {
			$self->{'mode_ansi'} = 0;
		} elsif (defined $ENV{'COLOR'}) {
			$self->{'mode_ansi'} = 1;
		} else {
			$self->{'mode_ansi'} = 0;
		}
	}

	# Check routine for ANSI colors output.
	if ($self->{'mode_ansi'}) {
		eval {
			require Term::ANSIColor;
		};
		if ($EVAL_ERROR) {
			err "Cannot load 'Term::ANSIColor' module.";
		}
	}

	$self->{'_l'} = MARC::Leader::L10N->get_handle(defined $self->{'lang'} ? $self->{'lang'} : ());

	return $self;
}

sub print {
	my ($self, $leader_obj) = @_;

	my @ret;
	push @ret, $self->_key('Record length').$leader_obj->length;
	push @ret, $self->_key('Record status').$self->_print($leader_obj, 'status');
	push @ret, $self->_key('Type of record').$self->_print($leader_obj, 'type');
	push @ret, $self->_key('Bibliographic level').$self->_print($leader_obj,
		'bibliographic_level');
	push @ret, $self->_key('Type of control').$self->_print($leader_obj,
		'type_of_control');
	push @ret, $self->_key('Character coding scheme').$self->_print($leader_obj,
		'char_coding_scheme');
	push @ret, $self->_key('Indicator count').$self->_print($leader_obj,
		'indicator_count');
	push @ret, $self->_key('Subfield code count').$self->_print($leader_obj,
		'subfield_code_count', 1);
	push @ret, $self->_key('Base address of data').$leader_obj->data_base_addr;
	push @ret, $self->_key('Encoding level').$self->_print($leader_obj,
		'encoding_level');
	push @ret, $self->_key('Descriptive cataloging form').$self->_print($leader_obj,
		'descriptive_cataloging_form');
	push @ret, $self->_key('Multipart resource record level').$self->_print($leader_obj,
		'multipart_resource_record_level');
	push @ret, $self->_key('Length of the length-of-field portion').$self->_print($leader_obj,
		'length_of_field_portion_len', 1);
	push @ret, $self->_key('Length of the starting-character-position portion').
		$self->_print($leader_obj, 'starting_char_pos_portion_len', 1);
	push @ret, $self->_key('Length of the implementation-defined portion').
		$self->_print($leader_obj, 'impl_def_portion_len', 1);
	push @ret, $self->_key('Undefined').$self->_print($leader_obj, 'undefined');

	return wantarray ? @ret : (join $self->{'output_separator'}, @ret);
}

sub _key {
	my ($self, $key) = @_;

	my $ret;
	my $value = $self->{'_l'}->maketext($key);
	if ($self->{'mode_ansi'}) {
		$ret = Term::ANSIColor::color('cyan').$value.Term::ANSIColor::color('reset');
	} else {
		$ret = $value;
	}
	$ret .= ': ';

	return $ret;
}

sub _print {
	my ($self, $leader_obj, $method_name, $value) = @_;

	my $ret_value = $leader_obj->$method_name;
	my $ret;
	if ($self->{'mode_desc'}) {
		my $ret_value_fixed = $ret_value;
		$ret_value_fixed =~ s/\ /_/msg;
		$ret = $self->{'_l'}->maketext($method_name.'.'.$ret_value_fixed);
		if (defined $value) {
			$ret .= ' ('.$ret_value.')';
		}
	} else {
		$ret = $ret_value;
	}

	return $ret;
}

1;

__END__