Some components (or things that use components) require a bit more information than origin and width/height. The orientation role allows a component to specify whether is vertically or horizontally oriented.

    package My::Component;

    extends 'Graphics::Primitive::Component';

    with 'Graphics::Primitive::Oriented';

    1;

is_vertical

Returns true if the component is vertically oriented.

is_horizontal

Returns true if the component is not vertically oriented.

orientation

The way a component is oriented. Values allowed are 'horizontal' or 'vertical'.

Cory Watson, <gphat@cpan.org>

perl(1)

Copyright 2008-2010 by Cory G Watson.

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