1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!perl
use strict;
use warnings;
use Test::Synopsis::Expectation;
synopsis_ok(*DATA);
done_testing;
__DATA__
=head1 NAME
basic - It's basic
=head1 SYNOPSIS
my $sum;
$sum = 1; # => 1
++$sum; # => is 2
++$sum; #=>is 3
use PPI::Tokenizer;
my $tokenizer = PPI::Tokenizer->new(\'code'); # => isa 'PPI::Tokenizer'
my $str = 'Hello, I love you'; # => like qr/ove/
my $obj = {
foo => ["bar", "baz"],
}; # => is_deeply { foo => ["bar", "baz"] }
$sum; # => success
=head1 AUTHOR
moznion E<lt>moznion@gmail.comE<gt>
|
