[Module-build-checkins] Module-Build/lib/Module/Build Authoring.pod,1.4,1.5 Base.pm,1.376,1.377

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31391/lib/Module/Build

Modified Files:
	Authoring.pod Base.pm 
Log Message:
Add the current_action() method

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.376
retrieving revision 1.377
diff -u -d -r1.376 -r1.377
--- Base.pm	10 Jan 2005 04:28:14 -0000	1.376
+++ Base.pm	22 Jan 2005 02:00:21 -0000	1.377
@@ -286,6 +286,7 @@
 sub config_data { shift()->_general_notes('config_data', @_) }
 sub feature      { shift()->_general_notes('features', @_) }
 sub runtime_params { shift->_persistent_hash_read('runtime_params', @_ ? shift : ()) }
+sub current_action { shift->{action} }
 
 sub add_build_element {
   my $self = shift;

Index: Authoring.pod
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Authoring.pod,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Authoring.pod	4 Jan 2005 05:26:38 -0000	1.4
+++ Authoring.pod	22 Jan 2005 02:00:21 -0000	1.5
@@ -647,6 +647,10 @@
 
 =over 4
 
+=item current_action()
+
+Returns the name of the currently-running action, such as "build" or "test".
+
 =item add_build_element($type)
 
 Adds a new type of entry to the build process.  Accepts a single