[Bast-commits] r5242 - in trunk/Devel-REPL: . lib/Devel/REPL

Sartak at dev.catalyst.perl.org Sartak at dev.catalyst.perl.org
Tue Dec 16 22:10:38 GMT 2008


Author: Sartak
Date: 2008-12-16 22:10:37 +0000 (Tue, 16 Dec 2008)
New Revision: 5242

Modified:
   trunk/Devel-REPL/
   trunk/Devel-REPL/lib/Devel/REPL/Profile.pm
   trunk/Devel-REPL/lib/Devel/REPL/Script.pm
Log:
 r77573 at onn:  sartak | 2008-12-16 17:10:11 -0500
 Respect env var DEVEL_REPL_PROFILE



Property changes on: trunk/Devel-REPL
___________________________________________________________________
Name: svk:merge
   - 08e7d58d-de06-4458-8c15-335e402ab116:/local/Devel-REPL:69376
6d2a1d83-d666-409f-9dbf-d3bfcf4e9009:/local/bast/broken_internets/Devel-REPL:80567
   + 08e7d58d-de06-4458-8c15-335e402ab116:/local/Devel-REPL:77573
6d2a1d83-d666-409f-9dbf-d3bfcf4e9009:/local/bast/broken_internets/Devel-REPL:80567

Modified: trunk/Devel-REPL/lib/Devel/REPL/Profile.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Profile.pm	2008-12-16 21:27:06 UTC (rev 5241)
+++ trunk/Devel-REPL/lib/Devel/REPL/Profile.pm	2008-12-16 22:10:37 UTC (rev 5242)
@@ -68,6 +68,9 @@
 
  system$ re.pl --profile MyProject
 
+Alternatively, you can set the environment variable C<DEVEL_REPL_PROFILE> to
+MyProject.
+
 When the profile name is unqualified, as in the above example, the profile is
 assumed to be in the C<Devel::REPL::Profile::> namespace. Otherwise if you
 pass something which contains the C<::> character sequence, it will be loaded

Modified: trunk/Devel-REPL/lib/Devel/REPL/Script.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Script.pm	2008-12-16 21:27:06 UTC (rev 5241)
+++ trunk/Devel-REPL/lib/Devel/REPL/Script.pm	2008-12-16 22:10:37 UTC (rev 5242)
@@ -14,7 +14,10 @@
 );
 
 has 'profile' => (
-  is => 'ro', isa => 'Str', required => 1, default => sub { 'Default' },
+  is       => 'ro',
+  isa      => 'Str',
+  required => 1,
+  default  => sub { $ENV{DEVEL_REPL_PROFILE} || 'Default' },
 );
 
 has '_repl' => (




More information about the Bast-commits mailing list