SVN: toys/rsget.pl/RSGet/Form.pm

[sparky]

Author: sparky
Date: Mon Oct 26 01:40:29 2009
New Revision: 10856

Modified:
   toys/rsget.pl/RSGet/Form.pm
Log:
- get/set method and action


Modified: toys/rsget.pl/RSGet/Form.pm
==============================================================================
--- toys/rsget.pl/RSGet/Form.pm	(original)
+++ toys/rsget.pl/RSGet/Form.pm	Mon Oct 26 01:40:29 2009
@@ -184,6 +184,25 @@
 	}
 }
 
+sub action
+{
+	my $self = shift;
+	if ( @_ ) {
+		$self->{action} = shift;
+	}
+	return $self->{action};
+}
+
+sub method
+{
+	my $self = shift;
+	if ( @_ ) {
+		my $method = shift;
+		$self->{post} = $method eq "post" ? 1 : 0;
+	}
+	return $self->{post} ? "post" : "get";
+}
+
 sub dump
 {
 	my $self = shift;