Venus
view release on metacpan or search on metacpan
lib/Venus/Path.pm view on Meta::CPAN
sub chmod {
my ($self, $mode) = @_;
my $path = $self->get;
CORE::chmod($mode, $path);
return $self;
}
sub chown {
my ($self, @args) = @_;
my $path = $self->get;
CORE::chown((map $_||-1, @args[0,1]), $path);
return $self;
}
sub children {
my ($self) = @_;
require File::Spec;
my @paths = map $self->glob($_), '.??*', '*';
lib/Venus/Path.pm view on Meta::CPAN
# given: synopsis;
$path = $path->chmod(0755);
# bless({ value => "t/data/planets" }, "Venus::Path")
=back
=cut
=head2 chown
chown(string @args) (Venus::Path)
The chown method changes the group and/or owner or the file or directory.
I<Since C<0.01>>
=over 4
=item chown example 1
# given: synopsis;
$path = $path->chown(-1, -1);
# bless({ value => "t/data/planets" }, "Venus::Path")
=back
=cut
=head2 copy
copy(string | Venus::Path $path) (Venus::Path)
t/Venus_Path.t view on Meta::CPAN
=cut
$test->for('abstract');
=includes
method: absolute
method: basename
method: child
method: chmod
method: chown
method: children
method: copy
method: default
method: directories
method: exists
method: explain
method: extension
method: find
method: files
method: glob
t/Venus_Path.t view on Meta::CPAN
=cut
$test->for('example', 1, 'chmod', sub {
my ($tryable) = @_;
ok my $result = $tryable->result;
ok $result =~ m{t${fsds}data${fsds}planets};
$result
});
=method chown
The chown method changes the group and/or owner or the file or directory.
=signature chown
chown(string @args) (Venus::Path)
=metadata chown
{
since => '0.01',
}
=example-1 chown
# given: synopsis;
$path = $path->chown(-1, -1);
# bless({ value => "t/data/planets" }, "Venus::Path")
=cut
$test->for('example', 1, 'chown', sub {
my ($tryable) = @_;
ok my $result = $tryable->result;
ok $result =~ m{t${fsds}data${fsds}planets};
$result
});
=method children
The children method returns the files and directories under the path. This
( run in 3.078 seconds using v1.01-cache-2.11-cpan-5511b514fd6 )