Skip to content

Commit

Permalink
fix groups, etc
Browse files Browse the repository at this point in the history
  • Loading branch information
rjbs committed Jun 5, 2008
1 parent 1e57fe4 commit ae4d603
Show file tree
Hide file tree
Showing 5 changed files with 15 additions and 5 deletions.
3 changes: 3 additions & 0 deletions Changes
Original file line number Diff line number Diff line change
@@ -1,4 +1,7 @@
Changelog for Mixin-Linewise

0.002 2008-06-05
update prereqs

0.001 2008-06-05
refactored out of Config-INI
1 change: 1 addition & 0 deletions Makefile.PL
Original file line number Diff line number Diff line change
Expand Up @@ -4,6 +4,7 @@ all_from('lib/Mixin/Linewise.pm');
requires('Carp' => 0.000); # sure, it's core, but let's be thorough
requires('IO::String' => 0.000); # minimum unknown
requires('IO::File' => 0.000); # minimum unknown
requires('Sub::Exporter' => 0.900); # minimum unknown

extra_tests;

Expand Down
2 changes: 1 addition & 1 deletion lib/Mixin/Linewise.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ use strict;
use warnings;
package Mixin::Linewise;
use 5.006;
our $VERSION = '0.001';
our $VERSION = '0.002';
use Carp ();
Carp::confess "not meant to be loaded";

Expand Down
7 changes: 5 additions & 2 deletions lib/Mixin/Linewise/Readers.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,15 +2,18 @@ use strict;
use warnings;
package Mixin::Linewise::Readers;

our $VERSION = '0.001';
our $VERSION = '0.002';

use Carp ();
use IO::File;
use IO::String;

use Sub::Exporter -setup => {
exports => { map {; "read_$_" => \"_mk_read_$_" } qw(file string) },
groups => { default => [ qw(read_file read_string) ] },
groups => {
default => [ qw(read_file read_string) ],
readers => [ qw(read_file read_string) ],
},
};

=head1 NAME
Expand Down
7 changes: 5 additions & 2 deletions lib/Mixin/Linewise/Writers.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,15 +2,18 @@ use strict;
use warnings;
package Mixin::Linewise::Writers;

our $VERSION = '0.001';
our $VERSION = '0.002';

use Carp ();
use IO::File;
use IO::String;

use Sub::Exporter -setup => {
exports => { map {; "write_$_" => \"_mk_write_$_" } qw(file string) },
groups => { default => [ qw(write_file write_string) ] },
groups => {
default => [ qw(write_file write_string) ],
writers => [ qw(write_file write_string) ],
},
};

=head1 NAME
Expand Down

0 comments on commit ae4d603

Please sign in to comment.