Parent Directory | Revision Log
move towards Class::Accessor usage
1 | #!/usr/bin/perl |
2 | use strict; |
3 | use warnings; |
4 | |
5 | my $debug = shift @ARGV; |
6 | |
7 | use Test::More tests => 3; |
8 | use Data::Dump qw/dump/; |
9 | use blib; |
10 | |
11 | BEGIN { |
12 | use_ok('Term::ISelect'); |
13 | } |
14 | |
15 | ok( my $iselect = Term::ISelect->new({ |
16 | lines => [ |
17 | 'first line', |
18 | '{s}second selectable line', |
19 | '', |
20 | 'last line', |
21 | ], |
22 | debug => $debug, |
23 | }), 'new' ); |
24 | isa_ok( $iselect, 'Term::ISelect' ); |
25 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |