Changeset 20093
- Timestamp:
- Oct 13, 2008, 10:54:49 AM (18 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous/lib/Nebulous/Client.pm (modified) (22 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous/lib/Nebulous/Client.pm
r19715 r20093 1 1 # Copyright (c) 2004-2008 Joshua Hoblitt 2 2 # 3 # $Id: Client.pm,v 1.6 0 2008-09-24 00:36:56jhoblitt Exp $3 # $Id: Client.pm,v 1.61 2008-10-13 20:54:49 jhoblitt Exp $ 4 4 5 5 package Nebulous::Client; … … 30 30 # TODO remove most of the logdies 31 31 32 sub import { 32 33 sub import 34 { 33 35 my $class = shift; 34 36 … … 58 60 } 59 61 60 sub new { 62 63 sub new 64 { 61 65 my $class = shift; 62 66 … … 96 100 } 97 101 98 sub create { 102 103 sub create 104 { 99 105 my $self = shift; 100 106 … … 136 142 } 137 143 138 sub open_create { 144 145 sub open_create 146 { 139 147 my $self = shift; 140 148 … … 182 190 } 183 191 184 sub replicate { 192 193 sub replicate 194 { 185 195 my $self = shift; 186 196 … … 261 271 262 272 263 sub cull { 273 sub cull 274 { 264 275 my $self = shift; 265 276 … … 323 334 } 324 335 325 sub lock { 336 337 sub lock 338 { 326 339 my $self = shift; 327 340 … … 391 404 } 392 405 393 sub unlock { 406 407 sub unlock 408 { 394 409 my $self = shift; 395 410 … … 579 594 580 595 581 sub find_objects { 596 sub find_objects 597 { 582 598 my $self = shift; 583 599 … … 616 632 } 617 633 618 sub find_instances { 634 635 sub find_instances 636 { 619 637 my $self = shift; 620 638 … … 658 676 } 659 677 660 sub find { 678 679 sub find 680 { 661 681 my $self = shift; 662 682 … … 698 718 } 699 719 700 sub open { 720 721 sub open 722 { 701 723 my $self = shift; 702 724 … … 772 794 } 773 795 774 sub delete { 796 797 sub delete 798 { 775 799 my $self = shift; 776 800 … … 797 821 } 798 822 799 sub copy { 823 824 sub copy 825 { 800 826 my $self = shift; 801 827 … … 847 873 } 848 874 849 sub move { 875 876 sub move 877 { 850 878 my $self = shift; 851 879 … … 878 906 } 879 907 880 sub delete_instance { 908 909 sub delete_instance 910 { 881 911 my $self = shift; 882 912 … … 923 953 924 954 925 sub mounts { 955 sub mounts 956 { 926 957 my $self = shift; 927 958 … … 943 974 } 944 975 945 sub stat { 976 977 sub stat 978 { 946 979 my $self = shift; 947 980 … … 974 1007 } 975 1008 976 sub err { 1009 1010 sub err 1011 { 977 1012 my $self = shift; 978 1013 … … 982 1017 } 983 1018 984 sub set_err { 1019 1020 sub set_err 1021 { 985 1022 my $self = shift; 986 1023 … … 995 1032 } 996 1033 1034 997 1035 1; 998 1036
Note:
See TracChangeset
for help on using the changeset viewer.
