Example

This is only an example.

    >>> 1 + 1
    2

Checked values are perl expressons.

    >>> 'foo'
    'foo'
    >>> undef
    undef

They are compared in deep manner.

    >>> [1, 2, 3, {foo => 'bar', bar => 'foo'}]
    [1, 2, 3, {bar => 'foo', foo => 'bar'}]

Multiline statements are supported.

    >>> 90 / (
    ...     4 + 5
    ... )
    10

Result could also be multiline

    >>> [1, 2, 3, {foo => 'bar', bar => 'foo'}]
    [
            1, 2, 3,
            {bar => 'foo', foo => 'bar'}
    ]

Test::Deep helpers work

    >>> [1, 2, 3, {foo => 'bar', bar => 'foo'}]
    [1, 2, 3, ignore]

    >>> [1, 2, 3]
    bag(3, 1, 2)

Original Test::Doctest one-line statements are supported too.

    $ 1 + 1
    2

Variables that were localized inside pod block...

    >>> my $foo = 10
    10

...are local to the end of the block.

    >>> $foo *= 2
    20

Variables that were localized inside pod block...

...and to the end of consequent blocks with the same name.

    >>> $foo *= 2
    40

But no longer.

    >>> no strict 'vars'
    >>> $foo
    undef

Tests are being run in the package namespace, so you can easily call subs.

    >>> foo()
    5

Changing result doesn't break testing

    >>> my $a = [1, 2, 3]
    >>> $a
    [1, 2, 3]

    >>> push(@$a, 4)
    >>> $a
    [1, 2, 3, 4]