NAME
Toolforge::MixNMatch::Print::Catalog - Mix'n'match catalog structure print.
SYNOPSIS
use Toolforge::MixNMatch::Print::Catalog qw(print);
my $print = print($obj);
SUBROUTINES
print
my $print = print($obj);
Print Toolforge::MixNMatch::Object::Catalog instance to user output.
Returns string.
ERRORS
obj2struct():
Object doesn't exist.
Object isn't 'Toolforge::MixNMatch::Object::Catalog'.
EXAMPLE
use strict;
use warnings;
use Data::Printer;
use Toolforge::MixNMatch::Object::Catalog;
use Toolforge::MixNMatch::Object::User;
use Toolforge::MixNMatch::Object::YearMonth;
use Toolforge::MixNMatch::Print::Catalog;
# Object.
my $obj = Toolforge::MixNMatch::Object::Catalog->new(
'count' => 10,
'type' => 'Q5',
'users' => [
Toolforge::MixNMatch::Object::User->new(
'count' => 6,
'uid' => 1,
'username' => 'Skim',
),
Toolforge::MixNMatch::Object::User->new(
'count' => 4,
'uid' => 2,
'username' => 'Foo',
),
],
'year_months' => [
Toolforge::MixNMatch::Object::YearMonth->new(
'count' => 2,
'month' => 9,
'year' => 2020,
),
Toolforge::MixNMatch::Object::YearMonth->new(
'count' => 8,
'month' => 10,
'year' => 2020,
),
],
);
# Print.
print Toolforge::MixNMatch::Print::Catalog::print($obj)."\n";
# Output:
# Type: Q5
# Count: 10
# Year/months:
# 2020/9: 2
# 2020/10: 8
# Users:
# Skim (1): 6
# Foo (2): 4
DEPENDENCIES
SEE ALSO
- Toolforge::MixNMatch::Print
-
Toolforge Mix'n'match tool object print routines.
REPOSITORY
https://github.com/michal-josef-spacek/Toolforge-MixNMatch-Print
AUTHOR
Michal Josef Špaček mailto:skim@cpan.org
LICENSE AND COPYRIGHT
© Michal Josef Špaček 2020
BSD 2-Clause License
VERSION
0.04