gistfile1.txt

sub enterprises : PathPart('enterprises') Chained('/') ActionClass('REST') { }

sub enterprises_GET {
	my ( $self, $c ) = @_;
     
	my @ents_rs = $c->model('ProfileDB::Enterprise')->all();
	my @enterprises = map { { uri  => $c->uri_for($c->controller->action_for('enterprise'), $_->id)->as_string,
				  id   => $_->id, 
				  name => $_->name } } @ents_rs;

	$self->status_ok(
			 $c, 
			 entity => {
				    enterprises => \@enterprises,
				   },
			);
}