view release on metacpan or  search on metacpan

lib/Config/Model/FuseUI.pm  view on Meta::CPAN

    }

    my $mode;
    if ( $type eq 'leaf' or $type eq 'check_list' ) {
        $mode = S_IFREG | oct(644);
    }
    else {
        $mode = S_IFDIR | oct(755);
    }

    my ( $dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize ) =
        ( 0, 0, 0, 1, $EGID, $EUID, 1, 1024 );
    my ( $atime, $ctime, $mtime );
    $atime = $ctime = $mtime = time;

# 2 possible types of return values:
#return -ENOENT(); # or any other error you care to
#print(join(",",($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)),"\n");
    my @r = (
        $dev,  $ino,   $mode,  $nlink, $uid,     $gid, $rdev,
        $size, $atime, $mtime, $ctime, $blksize, $blocks
    );

    $logger->trace( "FuseUI getattr returns '" . join( "','", @r ) . "'" );

    return @r;
}

## no critic (Subroutines::ProhibitBuiltinHomonyms)
sub open ($name, $flags, $info) {

lib/Config/Model/models/Fstab/UsbFsOptions.pl  view on Meta::CPAN

    'copyright' => [
      '2010,2011 Dominique Dumont'
    ],
    'element' => [
      'devuid',
      {
        'type' => 'leaf',
        'upstream_default' => '0',
        'value_type' => 'integer'
      },
      'devgid',
      {
        'type' => 'leaf',
        'upstream_default' => '0',
        'value_type' => 'integer'
      },
      'busuid',
      {
        'type' => 'leaf',
        'upstream_default' => '0',
        'value_type' => 'integer'
      },
      'budgid',
      {
        'type' => 'leaf',
        'upstream_default' => '0',
        'value_type' => 'integer'
      },
      'listuid',
      {
        'type' => 'leaf',
        'upstream_default' => '0',
        'value_type' => 'integer'
      },
      'listgid',
      {
        'type' => 'leaf',
        'upstream_default' => '0',
        'value_type' => 'integer'
      },
      'devmode',
      {
        'type' => 'leaf',
        'upstream_default' => '0644',
        'value_type' => 'integer'