Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

cleanup of various things

Mostly things the create-new-project script did. :)
  • Loading branch information...
commit d3623aba02a1d64551af98e0b1d4e238dbc6a8ea 1 parent 98e75f0
Carl Mäsak authored May 09, 2009
2  .gitignore
... ...
@@ -1 +1,3 @@
1 1
 data
  2
+Makefile
  3
+*.pir
2  Configure.pl
... ...
@@ -1,2 +1,2 @@
1 1
 # Configure.pl - installer - see documentation in lib/Configure.pm
2  
-use v6; BEGIN { @*INC.push( 'lib' ); }; use Configure;
  2
+use v6; BEGIN { @*INC.unshift( 'lib' ); }; use Configure;
3  Makefile.in
@@ -2,8 +2,7 @@ PERL6=<PERL6>
2 2
 PERL6LIB=<PERL6LIB>
3 3
 RAKUDO_DIR=<RAKUDO_DIR>
4 4
 
5  
-SOURCES=lib/Example/Hello.pm
6  
-
  5
+SOURCES=lib/Yarn.pm
7 6
 
8 7
 PIRS=$(SOURCES:.pm=.pir)
9 8
 
13  lib/Configure.pm
@@ -44,7 +44,11 @@ else {
44 44
 }
45 45
 
46 46
 say "PERL6       $perl6";
47  
-my $perl6lib = %*ENV<PWD> ~ '/lib';
  47
+warn %*ENV<PERL6LIB>;
  48
+warn %*ENV<PWD> ~ '/lib';
  49
+my $perl6lib = ?%*ENV<PERL6LIB>.index(%*ENV<PWD> ~ '/lib')
  50
+                   ?? %*ENV<PERL6LIB>
  51
+                   !! %*ENV<PWD> ~ '/lib';
48 52
 say "PERL6LIB    $perl6lib";
49 53
 # The perl6-examples/bin directory is a sibling of PERL6LIB
50 54
 my $perl6bin = $perl6lib.subst( '/lib', '/bin' );
@@ -67,12 +71,7 @@ squirt( 'Makefile', $maketext );
67 71
 # Job done.
68 72
 .say for
69 73
     '',
70  
-    q[Makefile is ready, running 'make' on it.];
71  
-run('make');
72  
-.say for
73  
-    q[Configure and 'make' have finished. ]
74  
-    ~ q[Use 'make help' to view other options.],
75  
-    '';
  74
+    q[Makefile is ready, you can now run 'make' on it.];
76 75
 
77 76
 
78 77
 # The opposite of slurp
11  lib/Example/Hello.pm
... ...
@@ -1,11 +0,0 @@
1  
-class Example::Hello
2  
-{
3  
-    method greet { return "hello" }
4  
-    method place { return "world" }
5  
-}
6  
-=begin pod
7  
-=head1 NAME
8  
-Example::Hello - canonical "hello, world!" example for proto
9  
-=head1 AUTHOR
10  
-masak (masak at github and @example.com)
11  
-=end pod
10  t/01-simple.t
... ...
@@ -1,7 +1,5 @@
1  
-use Example::Hello;
2 1
 use Test;
3  
-plan 3;
4  
-my Example::Hello $greeter .= new;
5  
-isa_ok( $greeter, 'Example::Hello', 'create object' );
6  
-is( $greeter.greet, 'hello', 'greet' );
7  
-is( $greeter.place, 'world', 'place' );
  2
+
  3
+plan 1;
  4
+
  5
+lives_ok({ use Yarn }, 'can use Yarn');

0 notes on commit d3623ab

Please sign in to comment.
Something went wrong with that request. Please try again.