File Coverage

blib/lib/Net/SFTP/Buffer.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

# $Id: Buffer.pm,v 1.12 2005/01/16 21:36:56 dbrobins Exp $

package Net::SFTP::Buffer;
use strict;

use Net::SSH::Perl::Buffer;
use base qw( Net::SSH::Perl::Buffer );

use Net::SSH::Perl::Util qw( :ssh2mp );

sub new {
    return shift->SUPER::new(@_, MP => 'SSH2');
}

sub get_int64 {
    my $buf = shift;
    my $off = defined $_[0] ? shift : $buf->{offset};
    $buf->{offset} += 8;
    bin2mp( $buf->bytes($off, 8) );
}

sub put_int64 {
    my $buf = shift;
    $buf->{buf} .= mp2bin($_[0], 8);
}

sub get_attributes {
    my $buf = shift;
    Net::SFTP::Attributes->new(Buffer => $buf);
}

sub put_attributes {
    my $buf = shift;
    $buf->{buf} .= $_[0]->as_buffer->bytes;
}

1;
__END__