NAME

Lego::Part - Lego part object.

SYNOPSIS

 use Lego::Part;

 my $obj = Lego::Part->new;
 my $color = $obj->color($color);
 my $design_id = $obj->design_id($design_id);
 my $element_id = $obj->element_id($element_id);

METHODS

• new()

   Constructor.
   Returns object.

• color([$color])

   Get or set color.
   Returns string with color.

• design_id([$design_id])

   Get or set lego design id.
   Returns string with design ID.

• element_id([$element_id])

   Get or set lego element id.
   Returns string with element ID.

EXAMPLE1

 use strict;
 use warnings;

 use Lego::Part;

 # Object.
 my $part = Lego::Part->new(
         'color' => 'red',
         'design_id' => '3002',
 );

 # Print color and design ID.
 print 'Color: '.$part->color."\n";
 print 'Design ID: '.$part->design_id."\n";

 # Output:
 # Color: red
 # Design ID: 3002

EXAMPLE2

 use strict;
 use warnings;

 use Lego::Part;

 # Object.
 my $part = Lego::Part->new(
         'element_id' => '300221',
 );

 # Print color and design ID.
 print 'Element ID: '.$part->element_id."\n";

 # Output:
 # Element ID: 300221

DEPENDENCIES

Class::Utils, Error::Pure.

SEE ALSO

Task::Lego

Install the Lego modules.

REPOSITORY

https://github.com/michal-josef-spacek/Lego-Part

AUTHOR

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

http://skim.cz

LICENSE AND COPYRIGHT

© 2013-2023 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.04