• NAME
• VERSION
• SYNOPSIS
• DESCRIPTION
• METHODS
  • record_use ($object)
  • objects
  • intro_year, intro_month, retire_year, retire_month
• ATTRIBUTES
  • name
  • intro, retire
• AUTHOR
• COPYRIGHT
• LICENSE
• SEE ALSO

NAME

Games::Simutrans::Livery -

VERSION

version 0.01

SYNOPSIS

    use Games::Simutrans::Livery;

    my $livery = Games::Simutrans::Livery->new(name => 'Erie');

    my $object = Games::Simutrans::Pak->new;
    $object->from_string(...);
    $livery->record_use($object);

    say 'Used from ' . $livery->intro_year . ' to '.
      $livery->retire_year;

DESCRIPTION

METHODS

record_use ($object)

Records the usage of this livery by a given Simutrans object (assumed to be a Games::Simutrans::Pak object or equivalent). Keeps track of the first introduction and last retirement dates of all objects using this livery.

objects

Returns a list of all object names (in the pakset) which were recorded as using this livery with record_use.

intro_year, intro_month, retire_year, retire_month

Return the year or month of the first or last observed use (introduction or retirment) of the livery

ATTRIBUTES

name

Sets or returns the short name of the livery as used in Simutrans dat files.

intro, retire

These two values are the first and last observed uses of the livery, in the integer format year * 12 + month + 1.

AUTHOR

William Lindley <wlindley@wlindley.com>

COPYRIGHT

Copyright 2021, William Lindley

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Games::Simutrans::Pakset, Games::Simutrans::Pak