package Data::SCORM::Organization; use Any::Moose; use Any::Moose qw/ X::AttributeHelpers /; use Any::Moose qw/ ::Util::TypeConstraints /; use Data::SCORM::Item; use Data::SCORM::Types; =head1 NAME Data::SCORM::Organization =head1 VERSION Version 0.01 =cut our $VERSION = '0.01'; has 'identifier' => ( is => 'rw', isa => 'Str', ); has 'title' => ( is => 'rw', isa => 'Str', ); has 'objectivesGlobalToSystem' => ( is => 'rw', isa => 'Bool', coerce => 1, ); has 'items' => ( metaclass => 'Collection::Array', is => 'rw', isa => 'ArrayRef[Data::SCORM::Item]', default => sub { +[] }, provides => { elements => 'all_items', count => 'count_items', get => 'get_item', map => 'map_items', }, ); =head1 SYNOPSIS =cut # __PACKAGE__->make_immutable; no Any::Moose; =head1 AUTHOR osfameron, C<< >> =head1 BUGS Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 SUPPORT You can find documentation for this module with the perldoc command. perldoc Data::SCORM::Organization You can also look for information at: =over 4 =item * RT: CPAN's request tracker L =item * Search CPAN L =back =head1 ACKNOWLEDGEMENTS =head1 COPYRIGHT & LICENSE Copyright 2009 OSFAMERON. This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License. See http://dev.perl.org/licenses/ for more information. =cut 1; # End of Data::SCORM::Organization