[Bps-public-commit] net-lighthouse branch, master, updated. e31b1ccd045aa71b572759265676c5e26f071329

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  e31b1ccd045aa71b572759265676c5e26f071329 (commit)
      from  98332cb5cbef5a5af4bbf3214cd0aa02313c7886 (commit)

Summary of changes:
 .../Lighthouse/{Token.pm => Project/TicketBin.pm}  |   29 ++++++++-----------
 1 files changed, 12 insertions(+), 17 deletions(-)
 copy lib/Net/Lighthouse/{Token.pm => Project/TicketBin.pm} (53%)

- Log -----------------------------------------------------------------
commit e31b1ccd045aa71b572759265676c5e26f071329
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Thu Aug 27 16:18:15 2009 +0800

    implement methods of bin

diff --git a/lib/Net/Lighthouse/Project/TicketBin.pm b/lib/Net/Lighthouse/Project/TicketBin.pm
new file mode 100644
index 0000000..1520d32
--- /dev/null
+++ b/lib/Net/Lighthouse/Project/TicketBin.pm
@@ -0,0 +1,55 @@
+package Net::Lighthouse::Project::TicketBin;
+use Any::Moose;
+use XML::Simple;
+use Params::Validate ':all';
+use Net::Lighthouse::Util;
+extends 'Net::Lighthouse';
+# read only attr
+has [
+    'user_id',       'position',   'shared', 'project_id',
+    'tickets_count', 'updated_at', 'id'
+  ] => (
+    isa => 'Maybe[Str]',
+    is  => 'ro',
+  );
+
+# read&write attr
+has [qw/name query default/] => (
+    isa => 'Maybe[Str]',
+    is  => 'rw',
+);
+
+no Any::Moose;
+__PACKAGE__->meta->make_immutable;
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::Lighthouse::Project::TicketBin - 
+
+=head1 SYNOPSIS
+
+    use Net::Lighthouse::Project::TicketBin;
+
+=head1 DESCRIPTION
+
+
+=head1 INTERFACE
+
+
+=head1 AUTHOR
+
+sunnavy  C<< <sunnavy at bestpractical.com> >>
+
+
+=head1 LICENCE AND COPYRIGHT
+
+Copyright 2009 Best Practical Solutions.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+

-----------------------------------------------------------------------