File Coverage

blib/lib/Language/Befunge/lib/DIRF.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	6	0.0
condition			n/a
subroutine	2	6	33.3
pod	4	4	100.0
total	12	35	34.2

#
# This file is part of Language::Befunge.
# Copyright (c) 2001-2009 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
#

package Language::Befunge::lib::DIRF;

use strict;
use warnings;

sub new { return bless {}, shift; }


#
# C( $directory )
#
# chdir $directory
#
sub C {
    my ($self, $interp) = @_;
    my $ip = $interp->get_curip;

    # pop the values
    my $dir = $ip->spop_gnirts;

    chdir $dir or $ip->dir_reverse;
}

#
# M( $directory )
#
# mkdir $directory
#
sub M {
    my ($self, $interp) = @_;
    my $ip = $interp->get_curip;

    # pop the values
    my $dir = $ip->spop_gnirts;

    mkdir $dir or $ip->dir_reverse;
}


#
# R( $directory )
#
# rmdir $directory
#
sub R {
    my ($self, $interp) = @_;
    my $ip = $interp->get_curip;

    # pop the values
    my $dir = $ip->spop_gnirts;

    rmdir $dir or $ip->dir_reverse;
}


1;

__END__