Re: [Catalyst] Multiple chain sources?

2010-11-23 Thread Oleg Kostyuk 
2010/11/23 Eden Cardim edencar...@gmail.com:
 No, that's currently not possible with chained. Matt and I, howeever,
 are working on a grammar-based dispatcher that will allow easy
 expression of those types of constructs.

I would like to get more details about this.
Is it possible to get repo url, please?


 You'll have to declare something like:

 sub my :Chained('base') CaptureArgs(0) {
  my($self, $c) = @_;
  $c-forward(user = [$c-user-id]);
 }

 and then chain onto that.

Could you please explain, what is this?
As I see in Catalyst POD, for now we have two signatures for forward method:

   $c-forward( $action [, \...@arguments ] )
   $c-forward( $class, $method, [, \...@arguments ] )

As I think, $c-forward(user = [$c-user-id]) isn't one of them.
So, what this should mean?

Thanks in advance.

-- 
Sincerely yours,
Oleg Kostyuk (CUB-UANIC)

___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Re: [Catalyst] Multiple chain sources?

2010-11-23 Thread Bill Crawford 
On 23 November 2010 15:34, Oleg Kostyuk cub.ua...@gmail.com wrote:

   $c-forward( $action [, \...@arguments ] )

 As I think, $c-forward(user = [$c-user-id]) isn't one of them.
 So, what this should mean?

$c-forward( $action [, \...@arguments ])
$c-forward( 'user'   , [ $c-user-id ] )

The '=' acts like the ',' but quotes its left hand side, hence the
lack of quoting around user in the example that you quoted. [0]

[0] No, I couldn't quite wrap my head around parsing this sentence either.

___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Re: [Catalyst] Multiple chain sources?

2010-11-22 Thread David Schmidt 
On Mon, Nov 22, 2010 at 6:15 AM, Matthew Braid catal...@mdb.id.au wrote:
 Hi all,

 Just wondering - is it possible for an action to have multiple chain paths?

 I'd like my site to have a path like /user/N/profile (/user/N being a
 chain path, /profile being an end node off that path), but also have a
 path like /my/profile (where /my is a chain path that acts as if the
 user put their own ID on the end of /user/N).

 Currently I have /user/N as a chain path, /my as a chain path, and
 then a profile action (path: /profile) that chains off of /user/N and
 a this_profile action (path: /profile) that chains off of /my that
 simply calls the profile action like so:

 # in the User controller

 sub user :Chained('/') :PathPart('user') :CaptureArgs(0) {
  # This is only here so a (not shown) chain makes '/user' a valid path
 }

 sub specific_user :Chained('user') :PathPart('') :CaptureArgs(1) {
  # Captured arg goes in $c-stash-{userid}
 }

 sub this_user :Chained('/') :PathPart('my') :CaptureArgs(0) {
  # The current user's ID goes in $c-stash-{userid}
 }

 sub profile :Chained('specific_user') :PathPath('profile') :Args(0) {
  # Do stuff using $c-stash-{userid}
 }

 sub this_profile :Chained('this_user') :PathPart('profile') :Args(0) {
  # Dummy - redirect to the main 'profile' action
  shift-profile(@_);
 }

 This works, but is it the best way to do it?

 TIA,
 MDB

 ___
 List: Catalyst@lists.scsys.co.uk
 Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
 Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
 Dev site: http://dev.catalyst.perl.org/


Usually my setup looks like this

# put resultset into stash
sub base : Chained('/') PathPart('users') CaptureArgs(0) {
$c-stash(users_rs = $c-model('DB::Users');
}

# find user in resultset, check for existance
sub base_with_id : Chained('base') PathPart('') CaptureArgs(1) {
my ($self, $c, $id ) = @_;
my $user = $c-stash-{users}-find($id);
if ($user) {
$c-stash(user = $user);
} else {
$c-stash(error_msg = 'not_found');
$c-detach('/error404');
}
}

sub index : Chained('base') ...
sub show : Chained('base_with_id') ...
sub create : Chained('base') ...
sub edit : Chained('base_with_id') ...
sub delete : Chained('base_with_id') ...
sub profile : Chained('base_with_id') ...

If I want a /my/profile now I'd just add another sub

# put user_id in stash, then make full chain dispatch
sub my_profile : Path('/my/profile') Args(0) Does('NeedsLogin') {
my ($self, $c) = @_;
$c-go($self-action_for('profile'), [ $c-user-id ]);
}

OR

# put user obj in stash, then visit just profile
sub my_profile : Path('/my/profile') Args(0) Does('NeedsLogin') {
my ($self, $c) = @_;
$c-stash(user = $c-user-obj;
$c-detach($self-action_for('profile'));
}

___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Re: [Catalyst] Multiple chain sources?

2010-11-22 Thread David Schmidt 
On Mon, Nov 22, 2010 at 9:24 AM, David Schmidt davew...@gmx.at wrote:
 On Mon, Nov 22, 2010 at 6:15 AM, Matthew Braid catal...@mdb.id.au wrote:
 Hi all,

 Just wondering - is it possible for an action to have multiple chain paths?

 I'd like my site to have a path like /user/N/profile (/user/N being a
 chain path, /profile being an end node off that path), but also have a
 path like /my/profile (where /my is a chain path that acts as if the
 user put their own ID on the end of /user/N).

 Currently I have /user/N as a chain path, /my as a chain path, and
 then a profile action (path: /profile) that chains off of /user/N and
 a this_profile action (path: /profile) that chains off of /my that
 simply calls the profile action like so:

 # in the User controller

 sub user :Chained('/') :PathPart('user') :CaptureArgs(0) {
  # This is only here so a (not shown) chain makes '/user' a valid path
 }

 sub specific_user :Chained('user') :PathPart('') :CaptureArgs(1) {
  # Captured arg goes in $c-stash-{userid}
 }

 sub this_user :Chained('/') :PathPart('my') :CaptureArgs(0) {
  # The current user's ID goes in $c-stash-{userid}
 }

 sub profile :Chained('specific_user') :PathPath('profile') :Args(0) {
  # Do stuff using $c-stash-{userid}
 }

 sub this_profile :Chained('this_user') :PathPart('profile') :Args(0) {
  # Dummy - redirect to the main 'profile' action
  shift-profile(@_);
 }

 This works, but is it the best way to do it?

 TIA,
 MDB

 ___
 List: Catalyst@lists.scsys.co.uk
 Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
 Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
 Dev site: http://dev.catalyst.perl.org/


 Usually my setup looks like this

 # put resultset into stash
 sub base : Chained('/') PathPart('users') CaptureArgs(0) {
    $c-stash(users_rs = $c-model('DB::Users');
 }

 # find user in resultset, check for existance
 sub base_with_id : Chained('base') PathPart('') CaptureArgs(1) {
    my ($self, $c, $id ) = @_;
    my $user = $c-stash-{users}-find($id);
    if ($user) {
        $c-stash(user = $user);
    } else {
        $c-stash(error_msg = 'not_found');
        $c-detach('/error404');
    }
 }

 sub index : Chained('base') ...
 sub show : Chained('base_with_id') ...
 sub create : Chained('base') ...
 sub edit : Chained('base_with_id') ...
 sub delete : Chained('base_with_id') ...
 sub profile : Chained('base_with_id') ...

 If I want a /my/profile now I'd just add another sub

 # put user_id in stash, then make full chain dispatch
 sub my_profile : Path('/my/profile') Args(0) Does('NeedsLogin') {
    my ($self, $c) = @_;
    $c-go($self-action_for('profile'), [ $c-user-id ]);
 }

 OR

 # put user obj in stash, then visit just profile
 sub my_profile : Path('/my/profile') Args(0) Does('NeedsLogin') {
    my ($self, $c) = @_;
    $c-stash(user = $c-user-obj;
    $c-detach($self-action_for('profile'));
 }


ERRATA:

in sub base_with_id
my $user = $c-stash-{users_rs}-find($id);

___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Re: [Catalyst] Multiple chain sources?

2010-11-22 Thread Eden Cardim 
 Matthew == Matthew Braid catal...@mdb.id.au writes:

Matthew Hi all, Just wondering - is it possible for an action to
Matthew have multiple chain paths?

Matthew I'd like my site to have a path like /user/N/profile
Matthew (/user/N being a chain path, /profile being an end node off
Matthew that path), but also have a path like /my/profile (where
Matthew /my is a chain path that acts as if the user put their own
Matthew ID on the end of /user/N).

No, that's currently not possible with chained. Matt and I, howeever,
are working on a grammar-based dispatcher that will allow easy
expression of those types of constructs.
You'll have to declare something like:

sub my :Chained('base') CaptureArgs(0) {
  my($self, $c) = @_;
  $c-forward(user = [$c-user-id]);
}

and then chain onto that.

-- 
 Eden CardimNeed help with your perl Catalyst or DBIx::Class 
project?
   Software Engineer   http://www.shadowcat.co.uk/catalyst/
 Shadowcat Systems Ltd.Want a managed development or deployment 
platform?
http://blog.edencardim.com http://www.shadowcat.co.uk/servers/

___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

[Catalyst] Multiple chain sources?

2010-11-21 Thread Matthew Braid 
Hi all,

Just wondering - is it possible for an action to have multiple chain paths?

I'd like my site to have a path like /user/N/profile (/user/N being a
chain path, /profile being an end node off that path), but also have a
path like /my/profile (where /my is a chain path that acts as if the
user put their own ID on the end of /user/N).

Currently I have /user/N as a chain path, /my as a chain path, and
then a profile action (path: /profile) that chains off of /user/N and
a this_profile action (path: /profile) that chains off of /my that
simply calls the profile action like so:

# in the User controller

sub user :Chained('/') :PathPart('user') :CaptureArgs(0) {
  # This is only here so a (not shown) chain makes '/user' a valid path
}

sub specific_user :Chained('user') :PathPart('') :CaptureArgs(1) {
  # Captured arg goes in $c-stash-{userid}
}

sub this_user :Chained('/') :PathPart('my') :CaptureArgs(0) {
  # The current user's ID goes in $c-stash-{userid}
}

sub profile :Chained('specific_user') :PathPath('profile') :Args(0) {
  # Do stuff using $c-stash-{userid}
}

sub this_profile :Chained('this_user') :PathPart('profile') :Args(0) {
  # Dummy - redirect to the main 'profile' action
  shift-profile(@_);
}

This works, but is it the best way to do it?

TIA,
MDB

___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/