<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">NAME
    Lego::Part - Lego part object.

SYNOPSIS
     use Lego::Part;
     my $obj = Lego::Part-&gt;new;
     my $color = $obj-&gt;color($color);
     my $design_id = $obj-&gt;design_id($design_id);
     my $element_id = $obj-&gt;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
     # Pragmas.
     use strict;
     use warnings;

     # Modules.
     use Lego::Part;

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

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

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

EXAMPLE2
     # Pragmas.
     use strict;
     use warnings;

     # Modules.
     use Lego::Part;

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

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

     # Output:
     # Element ID: 300221

DEPENDENCIES
    Class::Utils, Error::Pure.

REPOSITORY
    &lt;https://github.com/tupinek/Lego-Part&gt;

AUTHOR
    Michal Ĺ&nbsp;paÄek &lt;mailto:skim@cpan.org&gt;

    &lt;http://skim.cz&gt;

LICENSE AND COPYRIGHT
     ÂŠ 2013-2015 Michal Ĺ&nbsp;paÄek
     BSD 2-Clause License

VERSION
    0.01

</pre></body></html>