# Copyright (c) 2023 Yuki Kimoto
# MIT License

class Sys::Socket::Sockaddr::Un extends Sys::Socket::Sockaddr : pointer {
  version_from Sys;
  
  # Class methods
  native static method new : Sys::Socket::Sockaddr::Un ();
  
  # Instance methods
  native method DESTROY : void ();
  
  method sa_family : int () {
    my $sun_family = $self->sun_family;
    return $sun_family;
  }
  
  native method sun_family : int ();
  
  native method set_sun_family : void ($family : int);
  
  native method sun_path : string ();
  
  native method set_sun_path : void ($path : string);
  
  native method size : int ();
  
  method clone : Sys::Socket::Sockaddr::Un () {
    my $clone = Sys::Socket::Sockaddr::Un->new;
    
    $clone->set_sun_family($self->sun_family);
    $clone->set_sun_path($self->sun_path);
    
    return $clone;
  }
}