Add TF_Library class

Move `GetAllOpList()` method there.

Fixes <#8>.

Author: zmughal

Changes

@@ -1,3 +1,4 @@
+      - Add `::TFLibrary` class. Move `GetAllOpList()` method there.
 0.0.3 2022-12-15 10:46:52-0500
 
   - Features

README.pod

@@ -34,31 +34,6 @@ Version number for the C<libtensorflow> library.
 
 B<C API>: L<< C<TF_Version>|AI::TensorFlow::Libtensorflow::Manual::CAPI/TF_Version >>
 
-=head2 GetAllOpList
-
-=over 2
-
-C<<<
-GetAllOpList()
->>>
-
-=back
-
-  my $buf = Libtensorflow->GetAllOpList();
-  cmp_ok $buf->length, '>', 0, 'Got OpList buffer';
-
-B<Returns>
-
-=over 4
-
-=item L<TFBuffer|AI::TensorFlow::Libtensorflow::Lib::Types/TFBuffer>
-
-Contains a serialized C<OpList> proto for ops registered in this address space.
-
-=back
-
-B<C API>: L<< C<TF_GetAllOpList>|AI::TensorFlow::Libtensorflow::Manual::CAPI/TF_GetAllOpList >>
-
 =head1 AUTHOR
 
 Zakariyya Mughal <[email protected]>

lib/AI/TensorFlow/Libtensorflow.pm

@@ -18,6 +18,7 @@ use AI::TensorFlow::Libtensorflow::Output;
 use AI::TensorFlow::Libtensorflow::Input;
 
 use AI::TensorFlow::Libtensorflow::ApiDefMap;
+use AI::TensorFlow::Libtensorflow::TFLibrary;
 
 use AI::TensorFlow::Libtensorflow::ImportGraphDefOptions;
 use AI::TensorFlow::Libtensorflow::ImportGraphDefResults;
@@ -55,23 +56,6 @@ Version number for the C<libtensorflow> library.
 =cut
 $ffi->attach( 'Version' => [], 'string' );#}}}
 
-=classmethod GetAllOpList
-
-=for :signature
-GetAllOpList()
-
-  my $buf = Libtensorflow->GetAllOpList();
-  cmp_ok $buf->length, '>', 0, 'Got OpList buffer';
-
-=for :returns
-= TFBuffer
-Contains a serialized C<OpList> proto for ops registered in this address space.
-
-=tf_capi TF_GetAllOpList
-
-=cut
-$ffi->attach( 'GetAllOpList' => [], 'TF_Buffer' );
-
 1;
 
 =head1 SYNOPSIS

lib/AI/TensorFlow/Libtensorflow/ApiDefMap.pm

@@ -15,7 +15,7 @@ $ffi->mangler(AI::TensorFlow::Libtensorflow::Lib->mangler_default);
   use AI::TensorFlow::Libtensorflow::Status;
 
   my $map = ApiDefMap->New(
-    AI::TensorFlow::Libtensorflow->GetAllOpList,
+    AI::TensorFlow::Libtensorflow::TFLibrary->GetAllOpList,
     my $status = AI::TensorFlow::Libtensorflow::Status->New
   );
   ok $map, 'Created ApiDefMap';

lib/AI/TensorFlow/Libtensorflow/Lib.pm

@@ -173,13 +173,15 @@ typedef struct TF_DeviceList TF_DeviceList;
 
 =head3 TF_Library
 
+L<AI::TensorFlow::Libtensorflow::TFLibrary>
+
 =begin TF_CAPI_DEF
 
 typedef struct TF_Library TF_Library;
 
 =end TF_CAPI_DEF
 =cut
-		$ffi->type('opaque' => 'TF_Library');
+		$ffi->type('object(AI::TensorFlow::Libtensorflow::TFLibrary)' => 'TF_Library');
 
 =head3 TF_ApiDefMap
 

lib/AI/TensorFlow/Libtensorflow/TFLibrary.pm

@@ -0,0 +1,59 @@
+package AI::TensorFlow::Libtensorflow::TFLibrary;
+# ABSTRACT: TensorFlow dynamic library handle and ops
+
+use strict;
+use warnings;
+
+use AI::TensorFlow::Libtensorflow::Lib qw(arg);
+my $ffi = AI::TensorFlow::Libtensorflow::Lib->ffi;
+
+=construct LoadLibrary
+
+=tf_capi TF_LoadLibrary
+
+=cut
+$ffi->attach( [ 'LoadLibrary' => 'LoadLibrary' ] => [
+	arg string => 'library_filename',
+	arg TF_Status => 'status',
+] => 'TF_Library' => sub {
+	my ($xs, $class, @rest) = @_;
+	$xs->(@rest);
+} );
+
+=method GetOpList
+
+=tf_capi TF_GetOpList
+
+=cut
+$ffi->attach( [ 'GetOpList' => 'GetOpList' ] => [
+	arg TF_Library => 'lib_handle'
+] => 'TF_Buffer' );
+
+=destruct DESTROY
+
+=tf_capi TF_DeleteLibraryHandle
+
+=cut
+$ffi->attach( [ 'DeleteLibraryHandle' => 'DESTROY' ] => [
+	arg TF_Library => 'lib_handle'
+] => 'void' );
+
+=classmethod GetAllOpList
+
+=for :signature
+GetAllOpList()
+
+  my $buf = AI::TensorFlow::Libtensorflow::TFLibrary->GetAllOpList();
+  cmp_ok $buf->length, '>', 0, 'Got OpList buffer';
+
+=for :returns
+= TFBuffer
+Contains a serialized C<OpList> proto for ops registered in this address space.
+
+=tf_capi TF_GetAllOpList
+
+=cut
+$ffi->attach( 'GetAllOpList' => [], 'TF_Buffer' );
+
+
+1;

t/upstream/CAPI/013_GetAllOpList.t

@@ -6,7 +6,7 @@ use TF_TestQuiet;
 use aliased 'AI::TensorFlow::Libtensorflow';
 
 subtest "(CAPI, GetAllOpList)" => sub {
-	my $buf = Libtensorflow->GetAllOpList();
+	my $buf = AI::TensorFlow::Libtensorflow::TFLibrary->GetAllOpList();
 	ok $buf;
 };