Add simpler has_many syntax for Reflex::Collection.

TODO

@@ -14,29 +14,4 @@ I've done a half-baked implementation, but it needs:
 
 ---
 
-Declarative syntactic sugar for collection attributes.
-Try to get it into the 0.080 release.
-
-They currently look like this:
-
-	has connections => (
-		is      => 'rw',
-		isa     => 'Reflex::Collection',
-		default => sub { Reflex::Collection->new() },
-		handles => { remember_client => "remember" },
-	);
-
-Perhaps they should look like this:
-
-	collection connections => (
-		handles => { remember_client => "remember" },
-	);
-
-That is, the "collection" sub build an attribute that is 'rw', isa
-'Reflex::Collection', and instantiates its default value.
-
-Can it instantiate itself lazily?
-
----
-
 For a larger, longer-term list of todos, please see docs/TODO.otl.

eg/eg-34-tcp-server-echo.pl

@@ -14,12 +14,7 @@
 	use Reflex::Collection;
 	use EchoStream;
 
-	has clients => (
-		is      => 'rw',
-		isa     => 'Reflex::Collection',
-		default => sub { Reflex::Collection->new() },
-		handles => { remember_client => "remember" },
-	);
+	has_many clients => ( handles => { remember_client => "remember" } );
 
 	sub on_accept {
 		my ($self, $args) = @_;

eg/eg-42-reflex-in-poe.pl

@@ -18,12 +18,7 @@
 	use Reflex::Collection;
 	use Reflex::Client;
 
-	has connections => (
-		is      => 'rw',
-		isa     => 'Reflex::Collection',
-		default => sub { Reflex::Collection->new() },
-		handles => { remember_client => "remember" },
-	);
+	has_many clients => ( handles => { remember_client => "remember" } );
 
 	sub said {
 		my ($mybot, $bot_event) = @_;
@@ -92,12 +87,7 @@
 		extends 'Reflex::Acceptor';
 		use Reflex::Collection;
 
-		has clients => (
-			is      => 'rw',
-			isa     => 'Reflex::Collection',
-			default => sub { Reflex::Collection->new() },
-			handles => { remember_client => "remember" },
-		);
+		has_many clients => ( handles => { remember_client => "remember" } );
 
 		sub on_accept {
 			my ($self, $args) = @_;

lib/Reflex/Acceptor.pm

@@ -35,10 +35,8 @@ Reflex::Acceptor - non-blocking client socket acceptor
 	use Reflex::Collection;
 	use EchoStream;  # See eg directory.
 
-	has clients => (
-		is      => 'rw',
-		isa     => 'Reflex::Collection',
-		default => sub { Reflex::Collection->new() },
+	# From Reflex::Collection.
+	has_many clients => (
 		handles => { remember_client => "remember" },
 	);
 

lib/Reflex/Collection.pm

@@ -4,10 +4,14 @@
 
 package Reflex::Collection;
 use Moose;
+use Moose::Exporter;
 use Reflex::Callbacks qw(cb_method);
+use Carp qw(cluck);
 
 extends 'Reflex::Base';
 
+Moose::Exporter->setup_import_methods( with_caller => [ qw( has_many ) ]);
+
 has objects => (
 	is      => 'rw',
 	isa     => 'HashRef[Reflex::Collectible]',
@@ -30,6 +34,22 @@ sub cb_forget {
 	delete $self->objects()->{$args->{_sender}};
 }
 
+sub has_many {
+	my ($caller, $name, %etc) = @_;
+
+	my $meta = Class::MOP::class_of($caller);
+	foreach (qw(is isa default)) {
+		cluck "has_many is ignoring your '$_' parameter" if exists $etc{$_};
+	}
+
+	$etc{is}      = 'ro';
+	$etc{isa}     = 'Reflex::Collection';
+	$etc{lazy}    = 1 unless exists $etc{lazy};
+	$etc{default} = sub { Reflex::Collection->new() };
+
+	$meta->add_attribute($name, %etc);
+}
+
 1;
 
 __END__
@@ -47,10 +67,8 @@ Reflex::Collection - Autmatically manage a collection of collectible objects
 	use Reflex::Collection;
 	use EchoStream;
 
-	has clients => (
-		is      => 'rw',
-		isa     => 'Reflex::Collection',
-		default => sub { Reflex::Collection->new() },
+	# From Reflex::Collection.
+	has_many clients => (
 		handles => { remember_client => "remember" },
 	);
 
@@ -90,6 +108,29 @@ TODO - Reflex::Collection is an excellent place to manage pools of
 objects.  Provide a callback interface for pulling new objects as
 needed.
 
+=head2 has_many
+
+Reflex::Collection exports the has_many() function, which works like
+Moose's has() with "is", "isa", "lazy" and "default" set to common
+values.  For example:
+
+	has_many connections => (
+		handles => { remember_connection => "remember" },
+	);
+
+... is equivalent to:
+
+	has connections => (
+		# Defaults provided by has_many.
+		is      => 'ro',
+		isa     => 'Reflex::Collection',
+		lazy    => 1,
+		default => sub { Reflex::Collection->new() {,
+
+		# Customization.
+		handles => { remember_connection => "remember" },
+	);
+
 =head2 new
 
 Create a new Reflex::Collection.  It takes no parameters.