lib/perl5/site_perl/5.8.8/msys/SVN/Fs.pm

   1 use strict;
   2 use warnings;
   3
   4 package SVN::Fs;
   5 use SVN::Base qw(Fs svn_fs_);
   6
   7 =head1 NAME
   8
   9 SVN::Fs - Subversion filesystem functions
  10
  11 =head1 DESCRIPTION
  12
  13 SVN::Fs wraps the functions in svn_fs.h.
  14
  15 =head1 METHODS
  16
  17 Please consult the svn_fs.h section in the Subversion API.
  18
  19 =cut
  20
  21 package _p_svn_fs_t;
  22
  23 our @methods = qw/youngest_rev revision_root revision_prop revision_proplist
  24                   change_rev_prop list_transactions open_txn begin_txn
  25                   get_uuid set_uuid set_access get_access
  26                   lock unlock get_lock get_locks generate_lock_token path/;
  27
  28 for (@methods) {
  29     no strict 'refs';
  30     *{$_} = *{"SVN::Fs::$_"};
  31 }
  32
  33 package _p_svn_fs_root_t;
  34
  35 our @methods = qw/apply_textdelta apply_text change_node_prop
  36                  check_path close_root copied_from copy
  37                  dir_entries delete file_contents closest_copy
  38                  file_length file_md5_checksum is_dir is_file
  39                  is_revision_root is_txn_root make_dir make_file
  40                  node_created_rev node_history node_id node_prop
  41                  node_proplist paths_changed revision_link
  42                  revision_root_revision/;
  43
  44 *fs = *SVN::Fs::root_fs;
  45 *txn_name = *_p_svn_fs_txn_t::root_name;
  46
  47 for (@methods) {
  48     no strict 'refs';
  49     *{$_} = *{"SVN::Fs::$_"};
  50 }
  51
  52 package _p_svn_fs_history_t;
  53 use SVN::Base qw/Fs svn_fs_history_/;
  54
  55 package _p_svn_fs_txn_t;
  56 use SVN::Base qw/Fs svn_fs_txn_/;
  57
  58 *commit = *SVN::Fs::commit_txn;
  59 *abort = *SVN::Fs::abort_txn;
  60 *change_prop = *SVN::Fs::change_txn_prop;
  61
  62 package _p_svn_fs_access_t;
  63 use SVN::Base qw(Fs svn_fs_access_);
  64
  65 package _p_svn_fs_dirent_t;
  66 use SVN::Base qw(Fs svn_fs_dirent_t_);
  67
  68 package _p_svn_fs_path_change_t;
  69 use SVN::Base qw(Fs svn_fs_path_change_t_);
  70
  71 package SVN::Fs::PathChange;
  72 use SVN::Base qw(Fs svn_fs_path_change_);
  73
  74 1;