Szerkesztő:UTF46/src/generator/lssource.pm

generator/lssource.pm forráskódja

package generator::lssource;
use utf8;
use strict;
use warnings;

sub new {bless {},shift};

sub automata {
	my $self=shift;
	return 1;
};

sub todolist {
	my $self=shift;
	$ENV{PATH}='/bin:/usr/bin';
	my $ls_out=qx{ls task/*.pm generator/*.pm editor/*.pm checker/*.pm logger/*.pm utf46.pl};
	my @files=map {
		'Szerkesztő:'.$main::setup->{username}.'/src/'.$_
	} split(/\n/,$ls_out);
	return [@files];
};

1;

en:WTFPL