view release on metacpan or search on metacpan
lib/Net/DAV/Server.pm view on Meta::CPAN
return $response;
}
sub options {
my ( $self, $request, $response ) = @_;
$response->header( 'DAV' => '1,2,<http://apache.org/dav/propset/fs/1>' ); # Nautilus freaks out
$response->header( 'MS-Author-Via' => 'DAV' ); # Nautilus freaks out
$response->header( 'Allow' => join( ',', map { uc } keys %implemented ) );
$response->header( 'Content-Type' => 'httpd/unix-directory' );
$response->header( 'Keep-Alive' => 'timeout=15, max=96' );
return $response;
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
examples/ocssvn.pl view on Meta::CPAN
open my $fd, '>:raw', $file;
$fd->print($json->utf8->encode($computer));
}
shell("svn add -q '$file' && svn propset -q svn:mime-type 'text/javascript; charset=UTF-8' '$file'")
unless $existed;
}
}
warn "* Commit changes...\n";
view release on metacpan or search on metacpan
Storage/html/guide.html view on Meta::CPAN
<H4>3.5 Property Sets</H4>
Apart from just storing plain files it is possible, to store special
structured "database" files. These structured files are called property sets.
There is a good article about how they are build at Microsoft's web service,
<a href=http://www.microsoft.com/oledev/olesrvr/propset.htm>"OLE Property Sets Exposed" by Charlie Kindel</a>.
It claims, that accurate information about property sets is provided with
the Win32 SDK, too.<p>
Summary and further information are
<font color=red>- still to be done ! -</font><p>
view release on metacpan or search on metacpan
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
t/Opcodes.t view on Meta::CPAN
#!perl -w
BEGIN { $| = 1 } # Autoflush
use Test::More;
use Opcodes;
use Opcode qw(opset_to_ops full_opset);
use strict;
plan( tests => 18 );
# --- ensure all matching Opcode
my @full_l1 = opset_to_ops(full_opset);
ok @full_l1 == opcodes(), "opcodes == opset_to_ops(full_opset)";
my @full_l2 = map { $_->[1] } opcodes(); # names only
ok "@full_l1" eq "@full_l2", "opnames match, correct order";
# --- opdesc and other opcodes properties
view release on metacpan or search on metacpan
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
lib/OpenGL/Modern/ppport.h view on Meta::CPAN
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
share/ppport.h view on Meta::CPAN
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
PL_bufptr||5.003007|pou
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
#S for ( map split, $r->dir_config->get('PLPsafe_module') ) {
#S $PLP::safe->share('*' . $_ . '::');
#S s!::!/!g;
#S require $_ . '.pm';
#S }
#S $PLP::safe->permit(Opcode::full_opset());
#S $PLP::safe->deny(Opcode::opset(':dangerous'));
#S }
#S $PLP::safe->reval($code);
#S }
#S my ($r) = @_;
view release on metacpan or search on metacpan
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
lib/POSIX/RT/ppport.h view on Meta::CPAN
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
lib/POSIX/RT/ppport.h view on Meta::CPAN
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
lib/Padre/Plugin/Shopify.pm view on Meta::CPAN
use Cwd 'abs_path';
sub open_shop {
my ($self, $directory) = @_;
eval {
die new Padre::Plugin::Shopify::Exception("Unable to find directory.") unless -d $directory;
my ($setting_file, $manifest_file) = ("$directory/.shopsettings", "$directory/.shopmanifest");
die new Padre::Plugin::Shopify::Exception("Unable to find directory files.") unless -e $setting_file && -e $manifest_file;
my $file_settings = decode_json(read_file($setting_file));
return if first { abs_path($_->directory) eq $directory } $self->projects;
$self->add_project(Padre::Plugin::Shopify::Project->new($self, $directory, $file_settings));
};
lib/Padre/Plugin/Shopify.pm view on Meta::CPAN
sub create_shop {
my ($self, $directory) = @_;
eval {
die new Padre::Plugin::Shopify::Exception("Unable to find directory.") unless -d $directory;
my ($setting_file, $manifest_file) = ("$directory/.shopsettings", "$directory/.shopmanifest");
die new Padre::Plugin::Shopify::Exception("Found already extant settings files. Not creating.") if -e $setting_file || -e $manifest_file;
my $dialog = Wx::Dialog->new($self->main, -1, "Create Shop", [-1, -1], [-1, -1]);
my $grid = Wx::FlexGridSizer->new( 4, 2, 1, 1);
my ($url_edit, $api_key_edit, $password_edit) = map { Wx::TextCtrl->new( $dialog, -1, '', [-1, -1], [400, -1] ) } 0..2;
lib/Padre/Plugin/Shopify.pm view on Meta::CPAN
my $settings = { url => $url_edit->GetValue, password => $password_edit->GetValue };
$settings->{api_key} = $api_key_edit->GetValue if $api_key_text->GetValue eq "API Key";
$settings->{email} = $api_key_edit->GetValue if $api_key_text->GetValue eq "Email";
$self->add_project(Padre::Plugin::Shopify::Project->new($self, $directory, $settings));
my %saveSettings = map { $_ => $settings->{$_} } keys(%$settings);
write_file("$directory/.shopsettings", encode_json(\%saveSettings));
}
};
if ($@) {
$self->main->info(ref($@) ? $@->error : $@);
}
view release on metacpan or search on metacpan
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
PL_bufptr||5.003007|ponu
PL_CCC_non0_non230|5.029008||Viu
PL_check|5.009003|5.006000|
PL_checkav|5.006000||Viu
PL_checkav_save|5.008001||Viu
PL_chopset|5.005000||Viu
PL_clocktick|5.008001||Viu
PL_collation_ix|5.005000||Viu
PL_collation_name|5.005000||Viu
PL_collation_standard|5.005000||Viu
PL_collxfrm_base|5.005000||Viu
view release on metacpan or search on metacpan
README.SUBVERSION view on Meta::CPAN
************************ ORION SVN INFO ************************+
- SVN version info set in files with:
nereida:~/src/perl/YappWithDefaultAction/lib/Parse/Eyapp> svn propset svn:keywords "LastChangedDate LastChangedRevision" Driver.pm
svn propset svn:keywords "LastChangedDate LastChangedRevision" Eyapp.pm
propiedad 'svn:keywords' asignada en 'Eyapp.pm'
- This project was created by Casiano with the command:
pl@nereida:~/src/perl/YappWithDefaultAction$ svn import -m 'Yapp extended with default actions' YappWithDefaultAction/ svn+ssh://casiano@orion.pcg.ull.es/var/svn/casiano/PL/YappWithDefaultAction
view release on metacpan or search on metacpan
Penguin/Compartment.pm view on Meta::CPAN
sub new {
my ($class, %args) = @_;
$self = { 'compartment' => new Safe,
'shares' => { },
'opset' => Safe::empty_opset,
};
bless $self, $class;
}
# if you share using 'register', then in the future,
Penguin/Compartment.pm view on Meta::CPAN
}
sub initialize {
my ($self, %args) = @_;
my $opstring = $args{'Operations'} || "";
$self->{'compartment'}->permit_only(Safe::ops_to_opset(split(/ +/, $opstring)));
1;
}
sub execute {
my ($self, %args) = @_;
view release on metacpan or search on metacpan
-- remove prerequisites from manpage
* * APC.pm:
-- did not even compile
* testing
* propset
* * APC.pm:
-- did not even compile
* * added buildaperl from a different repository
view release on metacpan or search on metacpan
t/snippets3.t view on Meta::CPAN
----------
'extrude4' => <<'----------',
# From Safe.pm caused trouble with extrude
use Opcode 1.01, qw(
opset opset_to_ops opmask_add
empty_opset full_opset invert_opset verify_opset
opdesc opcodes opmask define_optag opset_to_hex
);
----------
'fabrice_bug' => <<'----------',
# no space around ^variable with -bt=0
t/snippets3.t view on Meta::CPAN
source => "extrude4",
params => "def",
expect => <<'#14...........',
# From Safe.pm caused trouble with extrude
use Opcode 1.01, qw(
opset opset_to_ops opmask_add
empty_opset full_opset invert_opset verify_opset
opdesc opcodes opmask define_optag opset_to_hex
);
#14...........
},
'extrude4.extrude' => {
t/snippets3.t view on Meta::CPAN
use
Opcode
1.01
,
qw(
opset opset_to_ops opmask_add
empty_opset full_opset invert_opset verify_opset
opdesc opcodes opmask define_optag opset_to_hex
)
;
#15...........
},