Skip to content

michal-josef-spacek/Toolforge-MixNMatch-Diff

Repository files navigation

NAME
    Toolforge::MixNMatch::Diff - Mix'n'match catalogs diff.

SYNOPSIS
     use Toolforge::MixNMatch::Diff;

     my $diff_cat = Toolforge::MixNMatch::Diff::diff($cat1, $cat2, $warn);

SUBRUTINES
  "diff"
     my $diff_cat = Toolforge::MixNMatch::Diff::diff($cat1, $cat2, $warn);

    Creates diff between two catalogs. $warn is boolean variable which turn
    on/off warnings (default is off).

    Returns instance of Toolforge::MixNMatch::Object::Catalog.

ERRORS
     diff():
             Something wrong with uids in catalogs.

EXAMPLE
     use strict;
     use warnings;

     use Toolforge::MixNMatch::Diff;
     use Toolforge::MixNMatch::Object::Catalog;
     use Toolforge::MixNMatch::Object::User;
     use Toolforge::MixNMatch::Object::YearMonth;
     use Toolforge::MixNMatch::Print::Catalog;

     # Catalogs.
     my $cat1 = Toolforge::MixNMatch::Object::Catalog->new(
             'count' => 10,
             'type' => 'Q5',
             'users' => [
                     Toolforge::MixNMatch::Object::User->new(
                             'count' => 2,
                             'uid' => 1,
                             'username' => 'Skim',
                     ),
                     Toolforge::MixNMatch::Object::User->new(
                             'count' => 1,
                             'uid' => 2,
                             'username' => 'Foo',
                     ),
             ],
             'year_months' => [
                     Toolforge::MixNMatch::Object::YearMonth->new(
                             'count' => 3,
                             'month' => 9,
                             'year' => 2020,
                     ),
             ],
     );
     my $cat2 = Toolforge::MixNMatch::Object::Catalog->new(
             'count' => 10,
             'type' => 'Q5',
             'users' => [
                     Toolforge::MixNMatch::Object::User->new(
                             'count' => 3,
                             'uid' => 1,
                             'username' => 'Skim',
                     ),
                     Toolforge::MixNMatch::Object::User->new(
                             'count' => 2,
                             'uid' => 2,
                             'username' => 'Foo',
                     ),
             ],
             'year_months' => [
                     Toolforge::MixNMatch::Object::YearMonth->new(
                             'count' => 3,
                             'month' => 9,
                             'year' => 2020,
                     ),
                     Toolforge::MixNMatch::Object::YearMonth->new(
                             'count' => 2,
                             'month' => 10,
                             'year' => 2020,
                     ),
             ],
     );

     my $diff_cat = Toolforge::MixNMatch::Diff::diff($cat1, $cat2);

     # Print out.
     print "Catalog #1:\n";
     print Toolforge::MixNMatch::Print::Catalog::print($cat1)."\n\n";
     print "Catalog #2:\n";
     print Toolforge::MixNMatch::Print::Catalog::print($cat2)."\n\n";
     print "Diff catalog:\n";
     print Toolforge::MixNMatch::Print::Catalog::print($diff_cat)."\n";

     # Output:
     # Catalog #1:
     # Type: Q5
     # Count: 10
     # Year/months:
     #         2020/9: 3
     # Users:
     #         Skim (1): 2
     #         Foo (2): 1
     # 
     # Catalog #2:
     # Type: Q5
     # Count: 10
     # Year/months:
     #         2020/9: 3
     #         2020/10: 2
     # Users:
     #         Skim (1): 3
     #         Foo (2): 2
     # 
     # Diff catalog:
     # Type: Q5
     # Count: 10
     # Year/months:
     #         2020/10: 2
     # Users:
     #         Foo (2): 1
     #         Skim (1): 1

DEPENDENCIES
    Error::Pure, Toolforge::MixNMatch::Object::Catalog,
    Toolforge::MixNMatch::Object::User,
    Toolforge::MixNMatch::Object::YearMonth.

REPOSITORY
    <https://github.com/michal-josef-spacek/Toolforge-MixNMatch-Diff>

AUTHOR
    Michal Josef Špaček <mailto:skim@cpan.org>

    <http://skim.cz>

LICENSE AND COPYRIGHT
    © Michal Josef Špaček 2020

    BSD 2-Clause License

VERSION
    0.03

About

Toolforge Mix'n'match tool diff.

Resources

License

Stars

Watchers

Forks

Sponsor this project

 

Packages

No packages published

Languages