named

1 files changed, 20 insertions, 0 deletions

diff --git a/libvxi11client/perlbits/Client.pm b/libvxi11client/perlbits/Client.pm
index 9b8fdb2..204027c 100644
--- a/libvxi11client/perlbits/Client.pm
+++ b/libvxi11client/perlbits/Client.pm
@@ -35,6 +35,26 @@ XSLoader::load('VXI11::Client', $VERSION);
 
 # Preloaded methods go here.
 
+sub vxi_enable_srq {
+	return vxi_enable_srq_long($_[0], 1, $_[1]);
+}
+
+sub vxi_disable_srq {
+	return vxi_enable_srq_long($_[0], 0 , "");
+}
+
+sub vxi_write {
+	my $self = shift;
+	my %args = (
+		len => -1,
+		waitlock => 0,
+		end => 1,
+		@_
+	);
+	return vxi_write_long($self, $args{data}, $args{len}, $args{waitlock}, $args{end});
+}
+
+
 1;
 __END__
 # Below is stub documentation for your module. You'd better edit it!